Discussion :

[JiBé91]

Bonjour a tous,

une petite question, est il possible de réduire cette formule:

Code :

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

If Not IsEmpty(Range("C2")) And Not IsEmpty(Range("D2")) And Not IsEmpty(Range("E2")) And Not IsEmpty(Range("F2")) And Not IsEmpty(Range("G2")) And Not IsEmpty(Range("H2")) Then

Sachant que la fonction ne doit s'éxécuter seulement SI L'ENSEMBLE des cellules contiennent quelque chose.

Car en écrivant:

Code :

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

If Not IsEmpty(Range("C2:H2")) Then

La fonction s'éxécute si une de cellule est non vide.

Cordialement

[Philippe Tulliez]

Bonjour,
Utilise la fonction COUNTA qui est l'équivalent de la formule Excel NBVAL/COUNTA pour la version anglaise.
Exemple La fonction renvoie le nombre de cellules remplies en H1:J6

Code :

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

 Debug.Print Application.WorksheetFunction.CountA(Range("H1:J6"))

[JiBé91]

je n'arrive pas a intégrer la fonction, peux tu m'aider?

je pensais faire:

Code :

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

1
2
Nb = Debug.Print Application.WorksheetFunction.CountA(Range("C2:H2"))
If Nb = 6 then ...

mais ça ne marche pas...

idem pour:

Code :

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

If Debug.Print Application.WorksheetFunction.CountA(Range("C2:H2")) = 6 then

Ca serais Debug.Print qui gene...

[JiBé91]

solution trouvée:

Code :

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

If Application.WorksheetFunction.CountA(Range("C2:H2")) = 6 Then

Merci

[Philippe Tulliez]

Bonjour,

Ca serais Debug.Print qui gene...

Debug.Print est une instruction que l'on utilise au cours de la phase de débogage et qui permet d'afficher ("Imprimer") ce qui suit l'instruction dans la fenêtre d'exécution (que l'on affiche par le raccourci (Ctrl+G)).
C'est nettement plus intéressant que MsgBox qui attend toujours que l'utilisateur clique sur OK

[JiBé91]

Je ne connaissais pas cette fonction, et j'utilisais la fonction MsgBox. J’essaierais de l'utiliser la prochaine fois que j'ai ai besoin

Merci