Problème de marcro tout bête

[lennon535535]

Bonjour,

J'ai écris une macro, j'ai vérifié que les cases correspondaient bien et pourtant je n'ai pas de valeur qui s'affiche.
Pourriez-vous m'indiquer qu'elles sont les erreurs que j'ai commis?

Sub Conditions()

Dim i As Integer

For i = 19 To 50
If Cells(5, 4).Value = Sheets("Imprégnation + resultat bande").Cells(i, 2).Value And Cells(69, 20).Value = Null Then
Cells(69, 20).Value = Sheets("Imprégnation + resultat bande").Cells(i, 51).Value
End If
If Cells(5, 4).Value = Sheets("Imprégnation + resultat bande").Cells(i, 2).Value And Cells(69, 20).Value <> Null Then
Cells(69, 20).Value = (Cells(69, 20).Value + Sheets("Imprégnation + resultat bande").Cells(i, 51).Value) / 2
End If
Next


End Sub

 

[vgendron]

Re : Problème de marcro tout bête

Bonjour

sans doute la syntaxe ici n'est pas bonne
If Cells(5, 4).Value = Sheets("Imprégnation + resultat bande").Cells(i, 2).Value And Cells(69, 20).Value = Null Then

Null veut dire 0 ? dans ce cas. (() and () = 0)
Null veut dire. rien dans la cellule? dans ce cas: is empty..

sans ton fichier...

 

[Efgé]

Re : Problème de marcro tout bête

Bonjour lennon535535
Remplace Null par "" Exemple:
And Cells(69, 20).Value = ""

Cordialement

 

[lennon535535]

Re : Problème de marcro tout bête

Vous êtes beaucoup trop fort les mecs ! Merci beaucoup!!!

 

[ROGER2327]

Re : Problème de marcro tout bête

Bonjour à tous.

Il se peut aussi que lennon535535 écrive volontairement Null. Hors du contexte, difficile d'avoir un avis...

Remède : qu'il prenne le temps de formuler correctement son problème au lieu de s'en remettre à nos boules (de cristal, bien sûr !)​

Bonne journée.


ℝOGER2327
#7415

Mercredi 25 Merdre 141 (Apparition d’Ubu Roi - fête Suprême Seconde)
23 Prairial An CCXXII, 5,7994h - chèvrefeuille
2014-W24-3T13:55:06Z