recherche macro

[lindien]

Boujour le forum !!!

je recherche une macro voici un exemple :

Sub Test()
Dim Valeur As String

Valeur = Range("A1").Value

' si colonne où stocker la valeur = C
If Range("C1").Value = "" Then
Range("C1").Value = Valeur
Else
If Range("C2").Value = "" Then
Range("C2").Value = Valeur
Else
Range("C1").End(xlDown).Offset(1, 0).Value = Valeur
End If
End If
End Sub

mais cette macro se copie en C1 sur la première feuille je désirerais qu'elle se copie à partir de B23 sur la feuille 2

Merci de votre aide

Lindien

 

[bqtr]

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

 

[pascal21]

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

 

[lindien]

Re : recherche macro

Grand merci à toi bqtr !

ca marche super bien !
je suis vraiment nul


lindien