Discussion :

[tonnick]

Bonjour, je travaille sous excel en VBA et je souhaite testé si une cellule est vide.
La synthaxe habituelle est, pour une boucle sur la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("feuil4").Range("A" & ligne) <> "" Then

Le problème c'est que dans mon cas, j'ai une variable pour la ligne et une variable pour la colonne, et dans ce cas aucune des synthaxes suivantes ne fonctionnent...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
-If Worksheets("feuil4").Range( colonne & ligne) <> "" Then
-If Worksheets("feuil4").Range("" & colonne & ligne) <> "" Then
-If Worksheets("feuil4").cells(ligne,colonne).value <> "" Then

Merci d'avance

[da991319]

Bonjour une fois la cellule designee il faut que tu lui dises quoi comparer, a savoir la valeur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Worksheets("feuil4").Range( colonne & ligne) .Value<> "" Then

[olaxius]

bonjour,
Cette syntaxe fonctionne ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("feuil4").cells(ligne,colonne).value <> "" Then

N'aurais tu pas un pb avec le type de tes variables
essaies ça peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("feuil4").cells(Cint(ligne),Cint(colonne)).value <> "" Then

Espérant t'avoir aidé

[tonnick]

Bonjour

Bonjour une fois la cellule designee il faut que tu lui dises quoi comparer, a savoir la valeur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Worksheets("feuil4").Range( colonne & ligne) .Value<> "" Then

Avec ce code, il me met une erreur d'éxécution '1004' : erreur définie par l'application ou par l'objet.

bonjour,
Cette syntaxe fonctionne ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("feuil4").cells(ligne,colonne).value <> "" Then

N'aurais tu pas un pb avec le type de tes variables
essaies ça peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("feuil4").cells(Cint(ligne),Cint(colonne)).value <> "" Then

Espérant t'avoir aidé

ça marche .
Merci beacoup à vous deux pour votre précieuse aide.