Code VBA excel, si la cellule n'est pas vide

Fermé
Balata9 - 7 déc. 2011 à 21:41
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 - 7 déc. 2011 à 23:47
Bonjour à tous

Je cherche a lister le nom de lieux dans une feuille seulement si leur paramètre "ensoleillement" = 0 et si leue paramètre "puissance" > 0. J'aimerais rajouter une condition: que le paramètre "ensoleillement" ne soit pas une cellule vide. J'ai utilisé le code ci-dessous mais cela prend quand même en compte les cellules vides. Quelqu'un peut m'aider? Je vous remercie d'avance.

j'ai le code suivant:

Dim j As Long

Dim PUISSANCE As Long
Dim ENSOLEILLEMENT As Long
Dim REF As Long
Dim RATIO_DE_PERFORMANCE As Long

ThisWorkbook.Worksheets("PRODUCTIBLE ET PR").Range("K24:K10000").ClearContents
j = 24 'Début du tableau

For i = 4 To 500 'lignes de la plage de cellules ou chercher

ENSOLEILLEMENT = ThisWorkbook.Worksheets("EXPORT 1 JOUR").Cells(i, 5) PUISSANCE = ThisWorkbook.Worksheets("EXPORT 1 JOUR").Cells(i, 3)

If ThisWorkbook.Worksheets("EXPORT 1 JOUR").Cells(i, 5).Value = "" Then

If ENSOLEILLEMENT = 0 And PUISSANCE > 0 Then

ThisWorkbook.Worksheets("PRODUCTIBLE ET PR").Range("K" & j) = ThisWorkbook.Worksheets("EXPORT 1 JOUR").Range("A" & i) j = j + 1

End If

End If



A voir également:

1 réponse

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
7 déc. 2011 à 23:47
Bonsoir,

If ENSOLEILLEMENT <> ""

Tu dois toujours aller jusqu'à la ligne 500 ? Si non, il faut peut-être envisager un 'Exit For'

A+
0