Cellules vides non reconnues

[Spiekermayo]

Bonjour a tous,


J'ai un bout de code que je 'arrive pas a faire tourner correctement.

Exemple:

Je desire effacer cells(i, 5), cells(i,6) si cells(i,7) n'est pas vide

Voici ce que j'ecris mais mon code m'efface quand meme cells(i, 5) et cells(i,6) alors que cells(i,7) n'est pas vide

Sub

Dim i as Long


For i = 2 To 300

If Work.Range("i,7").Value = "" Then

Work.Cells(i, 5).ClearContents , Work.Cells(i, 6).ClearContents



End If

Next i

End sub





Je ne sais pas si c'est un probleme de format et si mon code n'est pas complet.


Si vous avez une petite idee, n'hesitez pas.


Bonne journee,

 

[Pierrot93]

Re : Cellules vides non reconnues

Bonjour,

on ne voit pas que ta variable "work" soit déclarée et initialisée.... essaye peut être comme cici :

If cells(i,7).Value = "" Then

sans plus de détails difficile d'en dire plus...

bon après midi
@+

 

[JCGL]

Re : Cellules vides non reconnues

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Test()
Dim i&
For i = 2 To 300
If Cells(i, 7).Value = "" Then Union(Cells(i, 5), Cells(i, 6)).ClearContents
Next i
End Sub

A+ à tous

 

[Spiekermayo]

Re : Cellules vides non reconnues

Merci pour vos reponses, je vous donne mon debut de code au cas ou:

J'ai essaye vos propositions, le resultat est le meme, j'ai l'impression que mon format de cellule n'est pas adequat (number)


Sub efface()



Dim i As Long



On Error Resume Next



Set Work = Worksheets("Fullconso")



'Efface Rang i+2

For i = 2 To 300

If Work.Cells(i, 7).Value Is Not Empty Then


Work.Cells(i, 6).ClearContents


End If

Next i

'Efface Rang i+3

For i = 2 To 300

If Work.Cells(i, 8).Value = "" Then

Work.Cells(i, 6).ClearContents , Work.Cells(i, 7).ClearContents



End If

Next i


End sub




Je pense pourtant que mon code appelle bien ce que je desire effectuer.


Merci beaucoup en tous cas.

 

[Misange]

Re : Cellules vides non reconnues

Bonjour à tous

Ta cellule est-elle vraiment vide ? Il se peut qu'elle comporte un espace ou bien encore un caractère style chr(160)
Ce lien n'existe plus

 

[Pierrot93]

Re : Cellules vides non reconnues

Re, bonjour Jean-Claude

commence peut être déjà par enlever cette instruction :

On Error Resume Next

préférable de gérer les erreurs plutôt que les ignorer et passer à l'instruction suivante...

Edition : bonjour Misange

 

[Robert]

Re : Cellules vides non reconnues

Bonjour le fil, bonjour le forum,

Outre les remarques des talentueux membres (oui oui même Misange... Aïe ! je vais encore morfler moi...) de ce fil, j'aurais plutôt écris ton code comme ça :

Sub efface()
Dim i As integer

Set Work = Worksheets("Fullconso")
'Efface Rang i+2
For i = 2 To 300
    If IsEmpty(Work.Cells(i, 7).Value) = False Then
        Work.Cells(i, 6).ClearContents
    End If
Next i
'Efface Rang i+3
For i = 2 To 300
    If Work.Cells(i, 8).Value = "" Then
        Work.Cells(i, 6).ClearContents: Work.Cells(i, 7).ClearContents
    End If
Next i
End Sub

 

[JCGL]

Re : Cellules vides non reconnues

Bonjour à tous,

Avec le code proposé en #3

A+ à tous

Edition : salut Pierrot, Flo et Robert...

 

[Misange]

Re : Cellules vides non reconnues

Avec les commentaires de tous mes talentueux camarades (y compris Robert, m'enfin !), tu devrais pouvoir y arriver !

 

[Spiekermayo]

Re : Cellules vides non reconnues

C'est très cool de votre part Messieurs,

De bonnes astuces et la bonne humeur, bon lundi....

 

[Misange]

Re : Cellules vides non reconnues

M'enfin ! y a pas que des messieurs qui bossent sur excel !

 

[JCGL]

Re : Cellules vides non reconnues

Bonjour à tous,

Pourtant on vient bien que tu es une fille sur ton avatar...

Désolé... et Bise
A+ à tous

 

[Misange]

Re : Cellules vides non reconnues

Ben oui les disciplus simplex c'est comme les toubibs, leur sexe importe peu