VBA - Copier valeurs dans cells vides de la colone

  • Initiateur de la discussion Initiateur de la discussion gringoh
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gringoh

XLDnaute Junior
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]
 

Pièces jointes

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]
 

Pièces jointes

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Réponses
9
Affichages
2 K
agnès
A
P
Réponses
1
Affichages
1 K
Pierrot93
P
N
Réponses
5
Affichages
3 K
A
Réponses
2
Affichages
1 K
azuréens
A
Réponses
2
Affichages
2 K
M
  • Question Question
Réponses
2
Affichages
1 K
M
P
Réponses
1
Affichages
684
D
  • Question Question
Réponses
4
Affichages
1 K
C
Réponses
2
Affichages
1 K
C
Retour