Si cellule pleine cellule en dessous

Bonjour,

Je cherche une macro qui puisse lorsque la cellule B27 est pleine, continuer à écrire dans la cellule B28 et ainsi de suite jusqu'à la cellule B52.

En vous remerciant par avance.

Bonjour Lebrun33,

L'énoncé est plutôt succinct pour pouvoir vraiment vous aider.

Je pense qu'il faudrait incorporer quelque chose du genre à votre code

Sub test()

i = 27

While (i < 53)

If (Cells(i, 2) <> "") Then

i = i + 1

Else

'écrire ce que vous voulez

End If

Wend

End Sub

En espérant avoir pu vous aider.

Pourquoi avez vous écris le chiffre 2 après If (Cells(i,

En vous remerciant

Le deuxième argument de cells correspond au numéro de colonne, ici, la deuxième, car B (en suivant votre énoncé).

Sub Cellule_suivante_si_pleine()

'

' Cellule_suivante_si_pleine Macro

'

i = 27

While (i < 53)

If (Cells(i, 2) <> "") Then

i = i + 1

Else

'écrire ce que vous voulez

End If

Wend

End Sub

En faisant ainsi, cela ne marche pas.

Bonjour LEBRUN33,

Si tu cherches à écrire sur la ligne qui est juste sous la dernière utilisée, je te propose :

Sub Essai()
  Dim lig&
  lig = Cells(Rows.Count, 2).End(xlUp).Row + 1 ' dernière ligne utilisée selon colonne B, plus 1
  If lig = 53 Then Exit Sub ' sortir de la sub pour ne pas écrire sous la ligne 52
  Cells(lig, 2) = "Hello !" ' écrit Hello sous les autres données de la colonne B
End Sub

Comme pour ce que t'a proposé tipsobureau (salut), le 2 est pour la colonne B.

dhany

Sub Cellule_suivante_si_pleine()

'

' Cellule_suivante_si_pleine Macro

'

i = 27

While (i < 53)

If (Cells(i, 2) <> "") Then

i = i + 1

Else

'écrire ce que vous voulez

End If

Wend

End Sub

En faisant ainsi, cela ne marche pas.

J'ai pas été clair, mais à me semblait logique, il fallait remplacer la ligne "'écrire ce que vous voulez" par par exemple "Cells(i,2) = Vive excel"

Le code Dhany (salut à toi) fait la même chose sauf qu'il ne commence pas nécessairement à la colonne 27.

@ +

Bonsoir,

Je préfère directement vous envoyer le fichier en question car j'y connait rien en macro.

Cordialement,

Je te retourne ton fichier modifié :

Fais Ctrl e pour lancer la macro.

dhany

Cela m'écrit ici ! dans la cellule A27. Ce que je souhaiterai, c'est pouvoir par exemple aller automatiquement a la cellule B28 lorsque la cellule B27 est pleine. Ainsi de suite.

Voici une autre version :

Fais Ctrl e plusieurs fois.

dhany

Bonjour,

J'ai fait différemment en incorporent une zone de texte directement.

Merci pour votre aide.

Yohann

Bonjour Yohann,

Merci pour ton info ! cela dit, si tu as essayé mon fichier précédent, tu as pu voir que ça met le texte "ici !" de B27 à B52, puis ensuite ça s'arrête : ça ne va pas plus bas ! c'est bien ce que tu avais demandé pour les positions d'écriture !

dhany

Rechercher des sujets similaires à "pleine dessous"