Créer une macro qui renvoie à une cellule vid
cachou52fr
-
jen_peplu Messages postés 35 Statut Membre -
jen_peplu Messages postés 35 Statut Membre -
Bonjour,
je voudrais créer une macro dans un tableau Excel,
En cliquant sur un bouton je voudrais qu'il me renvoie à la premiere cellule vide de la colonne G,
et apres avoir écrit dans cette cellule.
En cliquant de nouveau sur le bouton, je voudrais etre renvoyé à la cellule vide suivante de la colonne G afin de remplir mes informations. et ainsi de suite, En sachant que certaines cellules de cette colonne, sont déja remplies
comment faire, je n'y connais rien du tout.
Merci de votre aide
je voudrais créer une macro dans un tableau Excel,
En cliquant sur un bouton je voudrais qu'il me renvoie à la premiere cellule vide de la colonne G,
et apres avoir écrit dans cette cellule.
En cliquant de nouveau sur le bouton, je voudrais etre renvoyé à la cellule vide suivante de la colonne G afin de remplir mes informations. et ainsi de suite, En sachant que certaines cellules de cette colonne, sont déja remplies
comment faire, je n'y connais rien du tout.
Merci de votre aide
A voir également:
- Créer une macro qui renvoie à une cellule vid
- Comment créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
- Créer une liste déroulante excel - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
1 réponse
Bonjour cachou52fr
Je pense que ce code répondra à ton attente.
Sub SelectCell()
Dim cel As Range
Dim ws As Worksheet
Dim ColG As Range
Set ws = Sheets("Feuil1")
Set ColG = ws.Range("G1:G" & Range("G1").End(xlDown).Row)
Range("G1").Select
For Each cel In ColG
If ActiveCell = "" Then GoTo sortie
If IsEmpty(Range("G2")) Then
Range("G2").Select
Exit Sub
End If
Range("G1").End(xlDown).Offset(1, 0).Select
If ActiveCell = "" Then GoTo sortie
Next cel
sortie:
End Sub
Bonne continuation.
A+
jen_peplu
Je pense que ce code répondra à ton attente.
Sub SelectCell()
Dim cel As Range
Dim ws As Worksheet
Dim ColG As Range
Set ws = Sheets("Feuil1")
Set ColG = ws.Range("G1:G" & Range("G1").End(xlDown).Row)
Range("G1").Select
For Each cel In ColG
If ActiveCell = "" Then GoTo sortie
If IsEmpty(Range("G2")) Then
Range("G2").Select
Exit Sub
End If
Range("G1").End(xlDown).Offset(1, 0).Select
If ActiveCell = "" Then GoTo sortie
Next cel
sortie:
End Sub
Bonne continuation.
A+
jen_peplu