Bonsoir,
J'essaie de copier/coller une cellule (Range("J2")) sur la première cellule vide d'une colonne (qui ,elle ,peut varier).
Jusque là ça va... d'autant plus que j'ai presque tout..., (la cellule de départ, la cellule d'arrivée et la formule "qui va bien" pour copier/coller l'une vers l'autre)
Sauf que je suis incapable de soutirer le numero de la colonne ciblée (Localisée avec la fonction Find) pour ensuite pouvoir l'exploiter dans un copier/coller End(xlUp) classique.
Je suis certain que c'est tout bête et pourtant, je bloque...
Voici le code utilisé
Merci pour votre attention.
J'essaie de copier/coller une cellule (Range("J2")) sur la première cellule vide d'une colonne (qui ,elle ,peut varier).
Jusque là ça va... d'autant plus que j'ai presque tout..., (la cellule de départ, la cellule d'arrivée et la formule "qui va bien" pour copier/coller l'une vers l'autre)
Sauf que je suis incapable de soutirer le numero de la colonne ciblée (Localisée avec la fonction Find) pour ensuite pouvoir l'exploiter dans un copier/coller End(xlUp) classique.
Je suis certain que c'est tout bête et pourtant, je bloque...
Voici le code utilisé
VB:
Sub Partiel() ''''' Oulah'''''
Dim J As Range
Dim C As Range
'J est la cellule qui occupe les données qui seront exportées
Set J = Worksheets("Feuil3").Range("J3")
'C est la cellule située sur la colonne de destination
Set C = Worksheets("Feuil3").Range("13:13").Find([J2], _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Offset(3, 1)
'essais non concluants... avec...ActiveCell.Column '.EntireColumn
'Code a utiliser une fois définit le nº ou la lettre de la colonne (4 est un exemple)
J.Copy (Worksheets("Feuil3").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)) '''''Range("D" & Rows.Count) peut être une autre option.
End SubMerci pour votre attention.