Sujet Précédent Sujet Suivant

Si cellule pleine ?

djfa94 Messages postés 31 Date d'inscription dimanche 11 janvier 2009 Statut Membre Dernière intervention 19 octobre 2019 - 11 juin 2011 à 17:15
djfa94 Messages postés 31 Date d'inscription dimanche 11 janvier 2009 Statut Membre Dernière intervention 19 octobre 2019 - 11 juin 2011 à 22:30

Bonjour, j'ai ce début de macro :

Dim x As Integer
For x = 4 To Range("A28").End(xlUp).Row
next x

Je voudrais dire à ma macro que si une cellule en colonne B4:B28 est pleine, aller au x (colonne A) suivant.

Merci de votre aide.

A voir également:

7 réponses

Réponse 1 / 7

djfa94 Messages postés 31 Date d'inscription dimanche 11 janvier 2009 Statut Membre Dernière intervention 19 octobre 2019
11 juin 2011 à 19:18

Personne ?

Réponse 2 / 7

CGSI3 Messages postés 416 Date d'inscription vendredi 22 février 2008 Statut Membre Dernière intervention 7 janvier 2018 1
11 juin 2011 à 19:38

Bonjour,
Je comprend pas trop, mais as tu essayé ce genre de code:

For Each Cell in Range("A4:A28")
   If Cell.value<>"" then Cell.offset(0,1).value="ZZZ"
Next

Bonne Prog CGSI3

Réponse 3 / 7

djfa94 Messages postés 31 Date d'inscription dimanche 11 janvier 2009 Statut Membre Dernière intervention 19 octobre 2019
11 juin 2011 à 21:03

Ce n'est pas tout à fait ça, je peux joindre un fichier ?

Réponse 4 / 7

CGSI3 Messages postés 416 Date d'inscription vendredi 22 février 2008 Statut Membre Dernière intervention 7 janvier 2018 1
11 juin 2011 à 21:31

Me joindre un fichier => pas possible
Tiens voila un tableau ,
peux tu me faire un exemple explicite avec ce tableau:

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

djfa94 Messages postés 31 Date d'inscription dimanche 11 janvier 2009 Statut Membre Dernière intervention 19 octobre 2019
11 juin 2011 à 22:03

Merci à toi mais je viens de trouver seul, miracle :

Dim x As Integer
For x = 4 To Range("A28").End(xlUp).Row

If Cells(x, 2) <> "" Then
GoTo après
End If

Réponse 6 / 7

CGSI3 Messages postés 416 Date d'inscription vendredi 22 février 2008 Statut Membre Dernière intervention 7 janvier 2018 1
11 juin 2011 à 22:28

Je comprend pas tout mais il me semble que c'est
If Cells(x, 2).value <> "" Then
Et il manque peut être le Next x
Sinon si cela marche ... Good
Bonne soirée

Réponse 7 / 7

djfa94 Messages postés 31 Date d'inscription dimanche 11 janvier 2009 Statut Membre Dernière intervention 19 octobre 2019
11 juin 2011 à 22:30

Oui le Next x est plus loin dans la macro, merci pour ton aide.

Discussions similaires

Couleur de fond d'une cellule excel

[vba] recopier la valeur d'une cellule dans une autre feuille.

Comment on fait une bordure de cellule dans excel par vb

changer un format de cellule excel en vba

Macro: Detecter si une cellule est vide.HELP

Votre réponse

Discussions similaires