créer une macro qui renvoie à une cellule vide

**cachou52fr** · 15/06/2011, 23h03

bonjour,
je voudrais créer une macro dans un tableau Excel,
qui 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

**mercatog** · 15/06/2011, 23h54

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test()
Dim NewLig As Long
 
With Worksheets("Feuil1")
    NewLig = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
    .Range("G" & NewLig).Value = "toto"
End With
End Sub

**cachou52fr** · 16/06/2011, 15h50

Merci bien de répondre, mais cela ne fonctionne pas, ( "Toto", s'écrit dans la derniere ligne de la colonne G)
Mon souhait, est de me renvoyer sur la premiere cellule vide de la colonne G dans X ligne, en sachant qu'il y a (exemple) 50 lignes complétée entierement (de 1 a 50) et que j'ai des lignes écrites en dessous mais sans la colonne G, qui sont vide et que je dois informer en fonction de mes données, alors pour éviter de chercher, je voudrais aller directement à la premiere cellule vide de G. ( dans ce cas c'est la cellule G51 que je voudrais le renvoie et la prochaine fois la G52 si celle-ci est vide, sinon la G53 et ainsi de suite)

Mon bouton se trouve en fin de mes données à la lgne 850. a coté de mes résultats

**mercatog** · 16/06/2011, 15h58

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim NewLig As Long
 
With Worksheets("Feuil1")
    NewLig = .Range("G1").End(xlDown).Row
    If NewLig = .Rows.Count Then NewLig = 1
    NewLig = NewLig + 1
    .Range("G" & NewLig).Value = "toto"
End With
End Sub

**cachou52fr** · 16/06/2011, 17h46

non, ça fonctionne pas ---
avec cette formule, ça va écrire "toto" à la première cellule de G qui était déjà écrite (ligne 1) et je reste sur le bouton..., ce n'est pas encore ça., ah, je voudrais bien trouver cette macro.
Je veux aller sur la 1ere cellule vide de G afin de la compléter..
C'est peut etre pas vraiment possible ma demande !

Merci quand meme mercatog de tes recherches.

**mercatog** · 16/06/2011, 18h24

Désolé, mais je me permet de vous rappeler que ce que vous dites est tout sauf ce que fait le code.

EDIT

Mea Culpa, En effet et suite à la remarque ci-après, je viens de me rendre compte de l'erreur au cas où G1 est vide.

**gFZT82** · 16/06/2011, 20h23

Bonjour mercatog, Bonjour cachou52fr,

Je pense que le dysfonctionnement constaté provient de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NewLig = .Range("G1").End(xlDown).Row

dans le cas où la première ligne est vide.

Cordialement.

**gFZT82** · 16/06/2011, 20h57

Re-bonjour mercatog,

Merci quand même d’essayer de ton coté.

Cordialement.

**mercatog** · 16/06/2011, 21h52

Suite à la remarque de gFZT82, qui a raison, je propose une autre solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub TEST2()
 
Worksheets("Feuil1").Range("G:G").SpecialCells(xlCellTypeBlanks)(1, 1) = "Toto"
End Sub

**cachou52fr** · 16/06/2011, 22h01

Je disais que le dernier code, écrit "toto" dans la ligne G1 apres avoir supprimmé ce que j'avais écris dans cette cellule, et non dans la 1 ere case vide de G comme je le voudrais, et mon pointeur reste sur le bouton en fin à ligne 850

Aussi, excusez moi de mal m'exprimer, je suis un papi qui à commencer à tappoter sur excel en 2009.
Merci de votre aide

Javais trouvé ce code -

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub retour()
ActiveSheet.Cells(Rows.Count, "G:G").End(xlUp)(2).Select
End Sub

Mais ce code me renvoie sur la derniere cellule vide de G, alors que je voudrais la premiere cellule vide de G qui peut etre a la ligne (exemple) 50 ou 52 ou n'importe quelle ligne, du moment que c'est la 1ere cellule vide de G

Merci

**mercatog** · 16/06/2011, 22h20

As tu testé le code TEST2 de la réponse #9?

**SfJ5Rpw8** · 16/06/2011, 22h27

Bonsoir,

tiens un code un peu "bourrin" mais qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function ChercheVide(rPlage As Range) As Range
    Dim r As Range
    For Each r In rPlage
        If IsEmpty(r) Then
            Set ChercheVide = r
            Exit Function
        End If
    Next
    set r = Nothing ' renvoi Nothing si rien de vide dans la plage.
End Function

Pour l'appel (il faudrai ajouter le traitement du cas "Nothing")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChercheVide(Feuil1.range("G:G")).Value  = " TOTO"

**cachou52fr** · 16/06/2011, 22h35

oui, j'ai testé le code du test2 et le probleme est le meme-
"toto" a la place de mes données de la 1 ere ligne en G et pointeur resté sur le bouton

**mercatog** · 16/06/2011, 22h40

Tu peux mettre un extrait de ton fichier en PJ. C'est bizarre.

**cachou52fr** · 16/06/2011, 22h51

je ne comprend rien du dernier code, excusez moi.
C'est pas le code qui est bourrin, c'est bien moi...

**SfJ5Rpw8** · 16/06/2011, 23h05

ben dans ce "dernier code" je t'ai mis une fonction ... et la manière de l'appeler, tu copie la fonction telle-quelle en dehors de tes procédure ...

et tu rajoute l'appel dans le code de ton bouton .., pour enchainer avec le déplacement du curseur tu peu utiliser l'appel suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim r As Range
Set r = ChercheVide(Feuil1.Range("G:G"))
If r Is Nothing Then
  MsgBox "PLUS de cellule libre"
 Else
   r.Activate
   r.Value = "TOTO"
 
 End If

PS : J'ai rajouté le "set" manquant sur la dernière ligne de la fonction

**cachou52fr** · 16/06/2011, 23h28

je m'excuses, je ne comprend pas ou je copie cette fonction

Je ne suis qu'un débutant en excel et pour mes 71 ans, j'ai du mal a comprendre

**SfJ5Rpw8** · 16/06/2011, 23h33

Ben tu met tout dans le même module ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub MonTest
Dim r As Range
Set r = ChercheVide(Feuil1.Range("G:G"))
If r Is Nothing Then
  MsgBox "PLUS de cellule libre"
 Else
   r.Activate
   r.Value = "TOTO"
 
 End If
End sub
 
Function ChercheVide(rPlage As Range) As Range
    Dim r As Range
    For Each r In rPlage
        If IsEmpty(r) Then
            Set ChercheVide = r
            Exit Function
        End If
    Next
    set r = Nothing ' renvoi Nothing si rien de vide dans la plage.
End Function

**mercatog** · 16/06/2011, 23h48

Bonsoir à tous
Je reviens avec ma proposition pour éviter une erreur avec SpecialCells(xlCellTypeBlanks)

Le nom de la feuille à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CommandButton1_Click()
Dim NewLig As Long
 
With Sheets("Feuil11")
    NewLig = .Cells(.Rows.Count, "G").End(xlUp).Row + 1
    .Range("G" & NewLig) = Null
    .Range("G1:G" & NewLig).SpecialCells(xlCellTypeBlanks)(1).Value = "Toto"
End With
End Sub

Reste à savoir comment tu teste ces codes par rapport à ton fichier.

**cachou52fr** · 17/06/2011, 00h22

non, toujours pas le bon code
Il me renvoie sur la cellule G1 en me supprimant mes écrits pour remplacer par "toto"

ce code est bon mais me renvoie sur la derniere cellule vide de G a la place de la 1ere cellule vide de G que je voudrais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub retour()
ActiveSheet.Cells(Rows.Count, "G:G").End(xlUp)(2).Select
End Sub

je teste les code directement sur mon bouton du fichier dans modifier la macro

créer une macro qui renvoie à une cellule vide

Macros et VBA Excel

Discussions similaires

Partager

Partager