Discussion :

[redstoff]

bonjour je souhaite faire une petite commande qui fera


quand je clique il copie des fichiers , ouvre une fenêtre, et colle
ça je sais faire

le plus dur est la
il faudrait que si il y déjà une donnée sur la ligne qu'il colle sur les données sur la ligne d'en dessous.

j’espère avoir été claire

merci

[Pierre Fauconnier]

Salut.

Le plus simple est, à mon avis, de déterminer la bonne cellule d'emblée, et de travailler avec des variables Range

Ainsi, voici le code qui permet permet de pointer vers la cellule qui suit la dernière cellule utilisée en A, pour la feuille active (à préfixer, donc, de l'objet Worksheet correspondant si tu ne travailles pas avec la feuille active)

Code :

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

range("a" & rows.count).end(xlup)(2)

Normalement, il est intéressant de préfixer Rows d'un objet worksheet pour éviter les erreurs d'exécution si une feuille graphique est active.

[redstoff]

salut

je te donne le contexte et dit moi moi si ce que tu as voulu dire.

quand je clique sur un bouton il me colle des données en a1 a2 a3 a4 a5
ce que je veux c'est en recliquant sur le même bouton que la macro voit qu'il y a déjà quelque chose en A est donc aille coller en b1 b2 b3 b4 b5
et en recliquant encore quelle voit qu'il y a quelque chose en A et B donc qu'il aille coller en c1 c2 c3 c4 c5.

[redstoff]

je viens de me trouver la solution qui va bien dans mon contexte

ma solution (non développé) est

Code :

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

1
2
3
4
5
Dim m As Integer
m = 1
For m = 1 To 10
If Range("a" & m) <> "" Then Range("a" & m + 1).Select
Next m

bonne journée

[MarcelG]

Bonjour Redstoff, Bonjour le Forum,

Il n'est pas nécessaire d'initialiser m, car la boucle qui suit incrémente cette vleur.

[Pierre Fauconnier]

Ton code, puisqu'il continue à boucler après la sélection, ne sélectionnera pas la première cellule disponible, mais la dernière de la boucle +1 (par exemple, si A1:A10 est vide, tu sélectionneras A11).

De plus, tu dis vouloir remplir A, puis B, puis C, etc, et donc aller vers la droite... alors que ton code descend de ligne en ligne.

Donc, j'ai des difficultés à imaginer que le code que tu as donné fonctionne dans ton contexte

De plus, tu n'es pas obligé de sélectionner une cellule pour travailler, tu peux utiliser un objet typé Range

Code :

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

1
2
3
4
5
6
7
  Dim Cellule As Range
 
  If IsEmpty(Range("a1")) Then
    Set Cellule = Range("a1")
    Else
    Set Cellule = Cells(1, Columns.Count).End(xlToLeft)(1, 2)
  End If

Il me semblerait utile d'apprendre en commençant par le commencement...