Créer une macro qui renvoie à une cellule vid
cachou52fr
-
jen_peplu Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
jen_peplu Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
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
- Créer une adresse hotmail - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer une liste déroulante excel - Guide
- Vid - Télécharger - TV & Vidéo
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