Discussion :

[camzo]

Bonjour,

J'ai un fichier Excel qui contient une feuille cachée INFO, qui contient elle-même une plage de donnée intitulée ProjectList (cellules A2 to A9 à ce jour).

J'aimerais qu'une valeur soit ajoutée dynamiquement à cette plage de données. Voici le code que j'ai pour le moment.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ADD_PROJECT()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
    Workbooks.Open Filename:="C:\...\fichier.xlsx"
 
        Sheets("INFO").Visible = True
 
        'Worksheets("INFO").Range("A10").Value = "TEST"
 
            Application.Goto Reference:="ProjectList"
            xxx
 
        Sheets("INFO").Visible = False
 
    ActiveWorkbook.Save
    ActiveWorkbook.Close
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
End Sub

J'ai testé le Selection.ClearContents à la place des xxx et cela fonctionne bien. Mais je ne trouve pas ce qu'il faut mettre pour ajouter une valeur supplémentaire.

D'avance merci pour votre retour.

Camzo

[BENNASR]

bonjour
tu fais ton saisie via un userform qui contient un textbox et un bouton de commande non??
si c'est le cas il suffit de chercher la dernière ligne non vide , ajouter 1 et écrire la bas
ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim j As Long
With Sheets("INFO")
j = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & j) = TextBox1.Value
End With

[a_diard]

Bonjour

si tu veux que la nouvelle donnée soir dans ProjectList

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 ActiveWorkbook.Names("ProjectList").Delete
 
 
ActiveWorkbook.Names.Add Name:="ProjectList", RefersToR1C1:="=INFO!R2C1:R20C1"

il te reste à trouver la formule pour "=INFO!R2C1:R20C1"




Bonne journée

[camzo]

Merci à vous deux, les deux fonctionnent, c'est top.
Camzo