Si "ligne non vide" alors...

[famu]

Re-bonjour,

Ceci ne fonctionne pas :

For i = 2 To 11000

If Rows(i, 1) <> "" Then
Cells(i, 11) = "B"
End If
Next

C'est sûrment pas très compliqué...mais quand on est pas très "balaise"...

Merci,
Famu.

 

[bqtr]

Re : Si "ligne non vide" alors...

Bonjour famu,


Essaye comme ici

For i = 2 To 11000
If Cells(i, 1) <> "" Then
Cells(i, 11) = "B"
End If
Next i

Cela devrait fonctionner


A+

P.O

 

[famu]

Re : Si "ligne non vide" alors...

Bonjour famu,


Essaye comme ici

For i = 2 To 11000
If Cells(i, 1) <> "" Then
Cells(i, 11) = "B"
End If
Next i

Cela devrait fonctionner


A+

P.O

Salut,

Je connais "Cells(i,1)" et effectivement ça marche. Le problème est qu'il regarde uniquement les cellules de la colonne 1 (A). Ce que je veux c'est vérifier s'il y à qque chose de renseigner sur la ligne.
C'est vrai que "Rows(i,1) ne peut pas fonctionner puisque je demande de vérifier les lignes...dans la colonne 1 (A)!
Le problème est que "Rows(i)" ne fonctionne pas non plus.

????
Merci pour ton aide.

 

[Hervé]

Re : Si "ligne non vide" alors...

bonjour

a essayer :

For i = 2 To 11000

If Application.CountBlank(Rows(i)) <> 256 Then
Cells(i, 11) = "B"
End If
Next

salut

 

[famu]

Re : Si "ligne non vide" alors...

bonjour

a essayer :

For i = 2 To 11000

If Application.CountBlank(Rows(i)) <> 256 Then
Cells(i, 11) = "B"
End If
Next

salut

Merci Hervé ça marche nickel.

Ciao,
Famu.