VBA - Copier valeurs dans cells vides de la colone

gringoh · 31 Janvier 2006

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 · 31 Janvier 2006

Bonjour a tous

voici un bout de code qui pourras te servir

Code:

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 · 31 Janvier 2006

Bonjour gringoh,

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

Code:

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 :

Code:

Private Sub CommandButton1_Click()
Comble
End Sub

On peut aussi mettre directement le code.

En espérant que cela te dépanne.

Abel.

gringoh · 31 Janvier 2006

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

VBA - Copier valeurs dans cells vides de la colone

gringoh

XLDnaute Junior

Pièces jointes

SKYMAN

Guest

Pièces jointes

Abel

XLDnaute Accro

gringoh

XLDnaute Junior

Discussions similaires