Code VBA

[choupi_nette]

Bonjour le forum,
je m'arrache les cheveux pour faire dire à mon code un truc tout simple:

Tant qu'il y a quelque chose d'ecrit entre A6 et jusqu'en bas alors rajoute moi en face (colonne B) le contenu de la cellule Z4

Merci pour votre aide

 

[DoubleZero]

Re : Code VBA

Bonjour, choupi_nette, le Forum,

Comme ceci ?

Sub toto()
Dim c As Range
For Each c In Range("A6", [A65000].End(xlUp))
c.Offset(0, 1) = [z4]
Next
End Sub

A bientôt 🙂.

 

[CBernardT]

Re : Code VBA

Bonjour choupi_nette et le forum,

Un essai de code :

Sub ReportSiCondition()
Dim Derlig As Integer, Plage As Range, Cel As Range
With Sheets("Feuil1")
Derlig = .Range("A65000").End(xlUp).Row
Set Plage = .Range("A6:A" & Derlig)
For Each Cel In Plage
If Cel <> "" Then
Cel.Offset(0, 1) = .Range("Z4").Value
End If
Next Cel
End With
End Sub

 

[choupi_nette]

Re : Code VBA

Merci a vous deux ca marche super bien
Bonne journée

 

[Hulk]

Re : Code VBA

Hello choupi_nette, DoubleZero, Forum,

Une autre solution avec formule comme ceci en B6 (si j'ai bien compris)

=SI(A6<>"";$Z$4;"")

ou

=SI(ET(A6<>"";$Z$4);$Z$4;"")

À tirer vers le bas.

EDIT : Oups sorry avait pas bien lu le titre... Du VBA bon dieu..
Bonne journée à tous !

 

[Oranger]

Re : Code VBA

Bonjour, Je te propose le code suivant, et je te joint le fichier sur lequel je l'ai testé, cela résout-il ton problème?


Sub test()
'on initialise i à 6
i = 6
'tant que le colonne A n'est pas vide
Do While ActiveSheet.Cells(i, 1) <> ""
'on écrit le contenu de la plage Z4 dans la colonne B
ActiveSheet.Cells(i, 2) = ActiveSheet.Range("Z4")
'on intialise i
i = i + 1
'on passe au suivant
Loop
End Sub

 

[choupi_nette]

Re : Code VBA

merci a tous pour vos reponses mais je viens (desolée vraiment) de me rendre compte que ce que je vous demande ne correspond pas a ce qu'il me faut.
Je vous ai demandé de commencer en A6 alors qu'en fait le commencement peut varier tout le temps
Je m'explique:

une macro va me créer le début du fichier qui dépend d'un nombre d'entrées
A la dernière entrée ligne d'en dessous commencer a rentrer le contenu de z4

Désolée encore mais je m'y perd un peu ...