XL 2010 Methode range qui echoue erreur 1004

Profane · 7 Décembre 2016

Bonjour à tous
je nomme precedement une plage
et ensuite je fait une boucle sur celle ci mais ca plante sur la ligne For each c...
d'avance merci

Sub test()
Dim c As Range

For Each c In Range("donnees")
c.Value = "=if(c.Offset(, -1).Value= ""DRF"";""Oui"";""Non"")"
Next c

End Sub

vgendron · 7 Décembre 2016

bonjour

essaie plutot avec
c.formula=.... (ou formulalocal...)

Profane · 7 Décembre 2016

non plus....

Dranreb · 7 Décembre 2016

Bonjour.
Mettez un espion sur Range("donnees")
Ce nom n'est probablement pas défini dans le classeur.
Après :

VB:

With Feuil1.[donnees]
  .FormulaR1C1 = "=IF(RC[-1]=""DRF"",""Oui"",""Non"")"
  .Value = .Value: End With

Jacky67 · 7 Décembre 2016

Profane à dit:
non plus....

Bonjour,
Essaye
c.Formula = "=if(" & c.Offset(, -1).Address & " = ""DRF"",""Oui"",""Non"")"

Profane · 7 Décembre 2016

Bonjour et merci a vous
la solution est un assemblage de vos réponses

Sub test()
With Sheets("donnees")
Dim c As Range
'on regarde la colonne GTR (pour avoir le nombre de ligne a traitée)
For Each c In Range("GTR").Cells
c.Offset(, 1).Formula = "=if(" & c.Offset.Address & " = ""DRF"",""Oui"",""Non"")"
Next c
End With
End Sub

les explications :
Dranreb , le nom existe bien mais il prends en compte la colonne entière (ne comprenant aucune données)...mea culpa
ce qui foirait pour exécuter la boucle
donc je me suis référé à la colonne de gauche (remplie elle) c est la colonne GTR
puis je décale c.Offset(, 1). pour remplir la bonne colonne, la colonne données
et je met la formule sur exemple de jacky67 (je connaissais pas la subtilité address)

encore un grand merci a vous tous

Jacky67 · 7 Décembre 2016

Profane à dit:
Bonjour et merci a vous
la solution est un assemblage de vos réponses

et je met la formule sur exemple de jacky67 (je connaissais pas la subtilité address)

RE..
c.Offset(, 1).Formula = "=if(" & c.Offset.Address & " = ""DRF"",""Oui"",""Non"")"
Nul besoin du 2ème offset dans ce cas
c.Offset(, 1).Formula = "=if(" & c.Address & " = ""DRF"",""Oui"",""Non"")"

Dranreb · 7 Décembre 2016

Il n'empêche que pour plus de rapidité il vaudrait mieux faire toutes les cellules d'un coup :

VB:

Feuil1.[GTR].Offset(, 1) .FormulaR1C1 = "=IF(RC[-1]=""DRF"",""Oui"",""Non"")"

ou bien :

VB:

Feuil1.[GTR].Offset(, 1) .FormulaR1C1 ="=IF(GTR=""DRF"",""Oui"",""Non"")"

XL 2010 Methode range qui echoue erreur 1004

Profane

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Profane

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Pièces jointes

Profane

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires