Si "ligne non vide" alors...

famu · 15 Novembre 2006

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 · 15 Novembre 2006

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 · 15 Novembre 2006

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

bqtr à dit:
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é · 15 Novembre 2006

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 · 15 Novembre 2006

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

Hervé à dit:
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.

Si "ligne non vide" alors...

famu

XLDnaute Occasionnel

bqtr

XLDnaute Accro

famu

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

famu

XLDnaute Occasionnel

Discussions similaires

Si "ligne non vide" alors...

famu

XLDnaute Occasionnel

bqtr

XLDnaute Accro

famu

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

famu

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency