Code VBA

DoubleZero

XLDnaute Barbatruc

• 1 Novembre 2011

• #2

Re : Code VBA

Bonjour, choupi_nette, le Forum,

Comme ceci ?

Code:

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 🙂.

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 1 Novembre 2011

• #3

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

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 1 Novembre 2011

• #4

Re : Code VBA

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 1 Novembre 2011

• #5

Re : Code VBA

Hello choupi_nette, DoubleZero, Forum,

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

Code:

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

ou

Code:

=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 !

 

Vote positif 0 Vote négatif

Oranger

XLDnaute Occasionnel

• 1 Novembre 2011

• #6

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

 

Pièces jointes

• Classeur1.xls

  20.5 KB · Affichages: 52
• Classeur1.xls

  20.5 KB · Affichages: 53
• Classeur1.xls

  20.5 KB · Affichages: 52

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 1 Novembre 2011

• #7

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 ...

 

Vote positif 0 Vote négatif