recherche macro

Re : recherche macro

Bonjour lindien,

Essaye ceci :

Sub Test()
Dim Valeur As String

Valeur = Sheets("Feuil1").Range("A1").Value
With Sheets("Feuil2")
If .Range("B23") = "" Then
.Range("B23").Value = Valeur
Else
.Range("B65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With
End Sub

En espérant avoir répondu à ta question

Bonne journée

P.O

Re : recherche macro

bonjour lindien bqtr
attention aux titres peu évocateurs du problème que tu rencontre
si tu veux obtenir plus de réponses (bon là c'est le cas et en plus il semble que le problème soit résolu) il faut éviter ce genre de titre
(c'est dans la charte d'ailleurs)
pour ton cas "modification partielle d'une macro" ou encore "changer la destination d'une valeur dans une macro" aurait été plus indiquée
fais comme moi si tu manque d'inspiration pour le titre, commences par écrire ton message et puise ensuite une phrase clé dedans pour le titre
cordialement

Re : recherche macro

Grand merci à toi bqtr !

ca marche super bien !
je suis vraiment nul


lindien