Discussion :

[Mr.Anime]

Bonjour à tous, bonjour Forum,

Je code depuis peut en VBA et suis du coup vraiment "débutant".
Je créé une Macro qui me sert à l'extraction de données spécifique.

Là, je suis bêtement bloqué sur une valeur "vide" que je ne sais pas comment régler.

Données excel :

LED 3000K CRI>80
LED 3000K CRI>80
LED 3000K CRI>80
LED 3000K CRI>80

LED 3000K CRI>80

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim C As Range, derlig As Long, plage As Range
    derlig = Range("K" & Rows.Count).End(xlUp).Row
    For Each C In Range("K2:K" & derlig).Cells
        If C Is Nothing Then
        Set plage = C
        Else
         C.Value = Left(Split(C.Value, " ")(0), 3)
        End If
        Next
    If Not plage Is Nothing Then plage.Cells.Value = ""

J'essais de modifier, dans la colonne K, le début de mes cellules pour ne garder que "LED" d'où le

Left(Split(C.Value, " ")(0), 3)

.
Mais quand ma macro arrive a une cellule vide, elle m'affiche ma fameuse erreur "9" mais du coup, j'arrive pas a comprendre comment lui spécifier que quand c'est "vide" elle passe à la cellule d'après.
Je croyais que mon boud de code ferait l'affaire mais non

Code :

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

1
2
3
 If C Is Nothing Then
  Set plage = C
Else

Auriez vous une astuce ou plutôt un conseil ?

Merci Forum

ProVillard

[Igloobel]

Bonjour,

à la place de If C Is Nothing Then, je mettrai If C ="" Then.

VBA ne comprend pas que Nothing est vide, il veut ""

tu dis

A+

[Mr.Anime]

Bonsoir Igloobel,

Effectivement ! À présent cela marche !
Merci beaucoup.

Fallait le savoir ! Merci encore.

Bonne soirée

[Mr.Anime]

Bonsoir Menhir,

Ce que c'est bien d'apprendre

Merci pour les conseils.
C'est vrai que je n'avais pas vu cette différence...

C'est en forgeant que l'on devient forgeron.

Belle soirée

[Menhir]

à la place de
"If C Is Nothing Then"

je mettrai

"If C ="" Then"

... ou, mieux, If C <> "" Then puisque, si j'ai bien compris, dans la cas où la case est vide, il n'y a rien à faire.
Donc, à la place de toute la structure If ... Then :

Code :

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

If C.Value <> "" Then C.Value = Left(Split(C.Value, " ")(0), 3)

Je croyais que mon bou de code ferait l'affaire mais non

Code :

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

 If C Is Nothing Then

En fait, tu confonds une cellule vide et une cellule inexistante.

Par exemple, si tu recherches une valeur avec une méthode Find et que cette valeur ne se trouve pas dans la plage de recherche, tu obtiendras Nothing.
Mais si tu indiques une cellule et que cette cellule n'a pas de contenu, elle existe quand même.
Il faut donc tester son contenu et non la cellule elle-même.

Petit détail : la propriété Value est implicite et VBA parvient à interpréter le code dans la plupart des cas lorsqu'elle est omise.
Personnellement, je conseille de la mettre quand même car il peut arriver dans certains cas particuliers qu'il y ait ambigüité et que ça cause des problèmes.