VBA - Copier valeurs dans cells vides de la colone

[gringoh]

Bonjour le Froum,

Je cherche à faire des copier coller de valeurs dans une colonne à chaque fois qu'une cellule est vide et étendre cette selection par une boucle jusqu'à la fin du tableur.

Je ne parviens pas à faire de boucle !!!

Aussi je sollicite votre aide.

J'ajoute une pièce jointe, ce sera plus explicite.

Par avance Merci,

GringoH [file name=exemple_20060131120729.zip size=4522]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060131120729.zip[/file]

 

[SKYMAN]

Bonjour a tous

voici un bout de code qui pourras te servir

Private Sub CommandButton1_Click()
    Set F1 = Worksheets('Feuil1')
    Ligne = 2
    Do Until F1.Cells(Ligne, 2) = ''
        If F1.Cells(Ligne, 1) = '' Then
            F1.Cells(Ligne, 1) = Temp
        Else
            Temp = F1.Cells(Ligne, 1)
        End If
        Ligne = Ligne + 1
    Loop
End Sub

Si j'ai bien compris

Salutation [file name=exemple_20060131120729_20060131122311.zip size=9237]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060131120729_20060131122311.zip[/file]

 

[Abel]

Bonjour gringoh,

Essaie ce code à placer dans la feuille ou un module.

Sub Comble()
Dim c As Range
For Each c In Range('a2:a' & Range('b65536').End(xlUp).Row)
If c = '' Then c = c.Offset(-1, 0)
Next c
End Sub

Pour accéder à VBE, presse les touche 'Alt+F11'.
Fais un double clic sur 'Feuil1' correspondant à ton fichier.
Colle le code dans la fenêtre d'édition sur la partie droite de l'écran.

A l'aide de la barre d'outils 'Boite à outils contrôle', édite un bouton que tu places sur la feuille.
Fais un double clic dessus et appelle la macro dedans.
C'est un truc du genre :

Private Sub CommandButton1_Click()
Comble
End Sub

On peut aussi mettre directement le code.


En espérant que cela te dépanne.

Abel.

 

[gringoh]

Re:VBA - Copier valeurs dans cells vides de la col

Merci beaucoup pour vos réponse, ca marche nikel.

Bonne après-midi à tous...

... le mien sera meilleur !!!

GringoH