suis pas dou=E9 sans doute, d=E9butant c'est sur ....!
je n'arrive pas =E0 faire tourner ceci :
Dim rwindex
For rwindex =3D 1 To ActiveSheet.UsedRange.Rows.Count
With Cells(rwindex, 0).Activate
If ActiveCell.Value =3D CVErr(xlErrNA) Then
ActiveCell(0, -2) =3D "=E0 mettre =E0 jour !!!"
End If
End With
Next rwindex
il s'agit de de faire une routine de la ligne 1 =E0
"nbre_de_ligne_de_mon_tableau" (ce nombre est variable...) :
Si la cel active comporte le message erreur "#N/A" alors =E9crire "=E0
mettre =E0 jour.." sur la m=EAme ligne 2 colonnes avant,
Si non lancer "autre_routine"...
Mon truc ne marche pas au niveau du conteur.. ????
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ThierryP
Bonjour, Peut-être avec un truc comme ça à adapter bien sûr !!
Dim rw For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows Cells(rw, 1).Activate If ActiveCell.Value = xlErrNA Then ActiveCell(0, 2) = "à mettre à jour !!!" End If Next rw Avec ma version de Xcel, le CVErr me donne une incompatibilité avec une valeur de cellule numérique....
@+ thierryp
bonjour à tous,
suis pas doué sans doute, débutant c'est sur ....!
je n'arrive pas à faire tourner ceci :
Dim rwindex For rwindex = 1 To ActiveSheet.UsedRange.Rows.Count With Cells(rwindex, 0).Activate If ActiveCell.Value = CVErr(xlErrNA) Then ActiveCell(0, -2) = "à mettre à jour !!!" End If End With Next rwindex
il s'agit de de faire une routine de la ligne 1 à "nbre_de_ligne_de_mon_tableau" (ce nombre est variable...) :
Si la cel active comporte le message erreur "#N/A" alors écrire "à mettre à jour.." sur la même ligne 2 colonnes avant, Si non lancer "autre_routine"... Mon truc ne marche pas au niveau du conteur.. ????
merci de vos conseils
A+
Bonjour,
Peut-être avec un truc comme ça à adapter bien sûr !!
Dim rw
For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows
Cells(rw, 1).Activate
If ActiveCell.Value = xlErrNA Then
ActiveCell(0, 2) = "à mettre à jour !!!"
End If
Next rw
Avec ma version de Xcel, le CVErr me donne une incompatibilité avec une
valeur de cellule numérique....
@+ thierryp
bonjour à tous,
suis pas doué sans doute, débutant c'est sur ....!
je n'arrive pas à faire tourner ceci :
Dim rwindex
For rwindex = 1 To ActiveSheet.UsedRange.Rows.Count
With Cells(rwindex, 0).Activate
If ActiveCell.Value = CVErr(xlErrNA) Then
ActiveCell(0, -2) = "à mettre à jour !!!"
End If
End With
Next rwindex
il s'agit de de faire une routine de la ligne 1 à
"nbre_de_ligne_de_mon_tableau" (ce nombre est variable...) :
Si la cel active comporte le message erreur "#N/A" alors écrire "à
mettre à jour.." sur la même ligne 2 colonnes avant,
Si non lancer "autre_routine"...
Mon truc ne marche pas au niveau du conteur.. ????
Bonjour, Peut-être avec un truc comme ça à adapter bien sûr !!
Dim rw For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows Cells(rw, 1).Activate If ActiveCell.Value = xlErrNA Then ActiveCell(0, 2) = "à mettre à jour !!!" End If Next rw Avec ma version de Xcel, le CVErr me donne une incompatibilité avec une valeur de cellule numérique....
@+ thierryp
bonjour à tous,
suis pas doué sans doute, débutant c'est sur ....!
je n'arrive pas à faire tourner ceci :
Dim rwindex For rwindex = 1 To ActiveSheet.UsedRange.Rows.Count With Cells(rwindex, 0).Activate If ActiveCell.Value = CVErr(xlErrNA) Then ActiveCell(0, -2) = "à mettre à jour !!!" End If End With Next rwindex
il s'agit de de faire une routine de la ligne 1 à "nbre_de_ligne_de_mon_tableau" (ce nombre est variable...) :
Si la cel active comporte le message erreur "#N/A" alors écrire "à mettre à jour.." sur la même ligne 2 colonnes avant, Si non lancer "autre_routine"... Mon truc ne marche pas au niveau du conteur.. ????
merci de vos conseils
A+
lol__débutant__lol
Bonsoir Thierry, et maerci de ton aide...
j'ai un prob à l'exécution avec un massage erreur du type :Type incompatible (erreur 13) à la ligne Cells(rw, 1).Activate....
et là... j'avoue humblement que ça me dépasse !!! lol A+ Luc
Bonsoir Thierry, et maerci de ton aide...
j'ai un prob à l'exécution avec un massage erreur du type :Type
incompatible (erreur 13)
à la ligne
Cells(rw, 1).Activate....
et là... j'avoue humblement que ça me dépasse !!! lol
A+
Luc
j'ai un prob à l'exécution avec un massage erreur du type :Type incompatible (erreur 13) à la ligne Cells(rw, 1).Activate....
et là... j'avoue humblement que ça me dépasse !!! lol A+ Luc
anonymousA
bonjour,
je suppose que l'inscription "Mettre à jour" doit être positionnée 2 colonnes vant la cellule qui contient l'erreur , du moins si j'en crois le (0,-2)
For Each c In ActiveSheet.UsedRange If IsError(c) And c.Text = "#N/A" Then c.Offset(0, 2) = "à mettre à jour !!!" Next
A+
bonjour à tous,
suis pas doué sans doute, débutant c'est sur ....!
je n'arrive pas à faire tourner ceci :
Dim rwindex For rwindex = 1 To ActiveSheet.UsedRange.Rows.Count With Cells(rwindex, 0).Activate If ActiveCell.Value = CVErr(xlErrNA) Then ActiveCell(0, -2) = "à mettre à jour !!!" End If End With Next rwindex
il s'agit de de faire une routine de la ligne 1 à "nbre_de_ligne_de_mon_tableau" (ce nombre est variable...) :
Si la cel active comporte le message erreur "#N/A" alors écrire "à mettre à jour.." sur la même ligne 2 colonnes avant, Si non lancer "autre_routine"... Mon truc ne marche pas au niveau du conteur.. ????
merci de vos conseils
A+
bonjour,
je suppose que l'inscription "Mettre à jour" doit être positionnée 2
colonnes vant la cellule qui contient l'erreur , du moins si j'en crois
le (0,-2)
For Each c In ActiveSheet.UsedRange
If IsError(c) And c.Text = "#N/A" Then c.Offset(0, 2) = "à mettre à
jour !!!"
Next
A+
bonjour à tous,
suis pas doué sans doute, débutant c'est sur ....!
je n'arrive pas à faire tourner ceci :
Dim rwindex
For rwindex = 1 To ActiveSheet.UsedRange.Rows.Count
With Cells(rwindex, 0).Activate
If ActiveCell.Value = CVErr(xlErrNA) Then
ActiveCell(0, -2) = "à mettre à jour !!!"
End If
End With
Next rwindex
il s'agit de de faire une routine de la ligne 1 à
"nbre_de_ligne_de_mon_tableau" (ce nombre est variable...) :
Si la cel active comporte le message erreur "#N/A" alors écrire "à
mettre à jour.." sur la même ligne 2 colonnes avant,
Si non lancer "autre_routine"...
Mon truc ne marche pas au niveau du conteur.. ????
je suppose que l'inscription "Mettre à jour" doit être positionnée 2 colonnes vant la cellule qui contient l'erreur , du moins si j'en crois le (0,-2)
For Each c In ActiveSheet.UsedRange If IsError(c) And c.Text = "#N/A" Then c.Offset(0, 2) = "à mettre à jour !!!" Next
A+
bonjour à tous,
suis pas doué sans doute, débutant c'est sur ....!
je n'arrive pas à faire tourner ceci :
Dim rwindex For rwindex = 1 To ActiveSheet.UsedRange.Rows.Count With Cells(rwindex, 0).Activate If ActiveCell.Value = CVErr(xlErrNA) Then ActiveCell(0, -2) = "à mettre à jour !!!" End If End With Next rwindex
il s'agit de de faire une routine de la ligne 1 à "nbre_de_ligne_de_mon_tableau" (ce nombre est variable...) :
Si la cel active comporte le message erreur "#N/A" alors écrire "à mettre à jour.." sur la même ligne 2 colonnes avant, Si non lancer "autre_routine"... Mon truc ne marche pas au niveau du conteur.. ????
