Gérer de calcul avec NA

[gerard55]

bonjour à tous,
j'ai une formule avec index et équiv qui génère des NA en col R soit (g+10)quand la valeur n'est pas vrai
1- Comment éviter ces NA. j'ai essayé avec si la cellule est vide mais toujours NA
2- Deuxième solution y at-il un moyen de modifier le code ci-dessous de façon qu'il fasse le calcul dans toutes les cellules où il n'y a pas NA (actuellement, s'il y a un NA le code Bug)
3- j'ai remarqué que si j'indiquai le numéros de colonne avec un chiffre et non avec équiv, là, le code acceptais de faire la boucle.

Sub VariationCommande()
Sheets("Cmde").Select
Dim j As Double

For j = 0 To 16
With [g3].Offset(j)
.Value = .Value + IIf(.Offset(0, 11).Value <> "", .Offset(0, 11).Value, 0)
End With
Next
End Sub
Merci pour vos suggestions
a+
Gérard

 

[Cousinhub]

Re : Gérer de calcul avec NA

Bonjour,
tu aurais pu rester sur le même fil, 😉

essaie avec ce code, s'il n'y a que des valeurs ou des valeurs d'erreur (pas de cellule vide) :

Sub VariationCommande()
Sheets("Cmde").Select
Dim j As Double

For j = 0 To 16
With [g3].Offset(j)
.Value = .Value + IIf(Not IsError(.Offset(0, 11).Value), .Offset(0, 11).Value, 0)
End With
Next
End Sub

 

[gerard55]

Re : Gérer de calcul avec NA

Merci beaucoup
Effectivement, j'aurai pu rester sur le même post mais la question pouvait aussi être différente
Bon dimanche
a+
Gérard

 

[pierrejean]

Re : Gérer de calcul avec NA

bonjour gerard55

A tester

For j = 0 To 16
With [g3].Offset(j)
If Not IsError(.Offset(0, 11).Value) Then
  If .Offset(0, 11).Value <> "" Then
     .Value = .Value + .Offset(0, 11).Value
  End If
End If
End With
Next

ps: je verrais plutot j en integer voire byte

edit : encore en retard !!
salut bhbh 🙂