Bonsoir Isabelle,
Ce qui signifierais que je devrais mettre le end with ici ?
Sub test()
With ActiveSheet
If .Index> 1 Then
With .Previous
Nom = .Name
Nom = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A"& i) Like "*Rapport*" Then
End With
End If
Range("C"& i) = Range("B"& i) mais de la feuil precedente
End If
End With
End Sub
Merci
"isabelle" a écrit dans le message de news:
iloh7v$bsj$bonjour Manu,
utilisation du point devant range est *important* entre le With et le End
With
Sub test()
With ActiveSheet
If .Index> 1 Then
'With .Previous signifie que ce qui suit
'entre le With et le End With
'va s'executer sur la feuille précédente
With .Previous
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A"& i) Like "*Rapport*" Then
.Range("B"& i) = .Range("A"& i)
.Range("A"& i) = ""
.Range("F"& i) = .Range("C"& i) + .Range("D"& i)
.Rows(i + 1).Insert shift:=xlDown
End If
Next
End With
End If
End With
End Sub
isabelle
Le 2011-03-15 13:35, Manu a écrit :J'essai avec ton code d'y inclure le code que m'a donné Isabelle :
Bonsoir Isabelle,
Ce qui signifierais que je devrais mettre le end with ici ?
Sub test()
With ActiveSheet
If .Index> 1 Then
With .Previous
Nom = .Name
Nom = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A"& i) Like "*Rapport*" Then
End With
End If
Range("C"& i) = Range("B"& i) mais de la feuil precedente
End If
End With
End Sub
Merci
"isabelle"<i@v.org> a écrit dans le message de news:
iloh7v$bsj$1@speranza.aioe.org...
bonjour Manu,
utilisation du point devant range est *important* entre le With et le End
With
Sub test()
With ActiveSheet
If .Index> 1 Then
'With .Previous signifie que ce qui suit
'entre le With et le End With
'va s'executer sur la feuille précédente
With .Previous
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A"& i) Like "*Rapport*" Then
.Range("B"& i) = .Range("A"& i)
.Range("A"& i) = ""
.Range("F"& i) = .Range("C"& i) + .Range("D"& i)
.Rows(i + 1).Insert shift:=xlDown
End If
Next
End With
End If
End With
End Sub
isabelle
Le 2011-03-15 13:35, Manu a écrit :
J'essai avec ton code d'y inclure le code que m'a donné Isabelle :
Bonsoir Isabelle,
Ce qui signifierais que je devrais mettre le end with ici ?
Sub test()
With ActiveSheet
If .Index> 1 Then
With .Previous
Nom = .Name
Nom = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A"& i) Like "*Rapport*" Then
End With
End If
Range("C"& i) = Range("B"& i) mais de la feuil precedente
End If
End With
End Sub
Merci
"isabelle" a écrit dans le message de news:
iloh7v$bsj$bonjour Manu,
utilisation du point devant range est *important* entre le With et le End
With
Sub test()
With ActiveSheet
If .Index> 1 Then
'With .Previous signifie que ce qui suit
'entre le With et le End With
'va s'executer sur la feuille précédente
With .Previous
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A"& i) Like "*Rapport*" Then
.Range("B"& i) = .Range("A"& i)
.Range("A"& i) = ""
.Range("F"& i) = .Range("C"& i) + .Range("D"& i)
.Rows(i + 1).Insert shift:=xlDown
End If
Next
End With
End If
End With
End Sub
isabelle
Le 2011-03-15 13:35, Manu a écrit :J'essai avec ton code d'y inclure le code que m'a donné Isabelle :
déjà cette ligne n'a pas de sens,
Nom = Range("A65536").End(xlUp).Row To 1 Step -1
isabelle
Le 2011-03-15 16:41, Manu a écrit :Bonsoir Isabelle,
Ce qui signifierais que je devrais mettre le end with ici ?
Sub test()
With ActiveSheet
If .Index> 1 Then
With .Previous
Nom = .Name
Nom = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A"& i) Like "*Rapport*" Then
End With
End If
Range("C"& i) = Range("B"& i) mais de la feuil precedente
End If
End With
End Sub
Merci
"isabelle" a écrit dans le message de news:
iloh7v$bsj$bonjour Manu,
utilisation du point devant range est *important* entre le With et le
End
With
Sub test()
With ActiveSheet
If .Index> 1 Then
'With .Previous signifie que ce qui suit
'entre le With et le End With
'va s'executer sur la feuille précédente
With .Previous
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A"& i) Like "*Rapport*" Then
.Range("B"& i) = .Range("A"& i)
.Range("A"& i) = ""
.Range("F"& i) = .Range("C"& i) + .Range("D"& i)
.Rows(i + 1).Insert shift:=xlDown
End If
Next
End With
End If
End With
End Sub
isabelle
Le 2011-03-15 13:35, Manu a écrit :J'essai avec ton code d'y inclure le code que m'a donné Isabelle :
déjà cette ligne n'a pas de sens,
Nom = Range("A65536").End(xlUp).Row To 1 Step -1
isabelle
Le 2011-03-15 16:41, Manu a écrit :
Bonsoir Isabelle,
Ce qui signifierais que je devrais mettre le end with ici ?
Sub test()
With ActiveSheet
If .Index> 1 Then
With .Previous
Nom = .Name
Nom = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A"& i) Like "*Rapport*" Then
End With
End If
Range("C"& i) = Range("B"& i) mais de la feuil precedente
End If
End With
End Sub
Merci
"isabelle"<i@v.org> a écrit dans le message de news:
iloh7v$bsj$1@speranza.aioe.org...
bonjour Manu,
utilisation du point devant range est *important* entre le With et le
End
With
Sub test()
With ActiveSheet
If .Index> 1 Then
'With .Previous signifie que ce qui suit
'entre le With et le End With
'va s'executer sur la feuille précédente
With .Previous
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A"& i) Like "*Rapport*" Then
.Range("B"& i) = .Range("A"& i)
.Range("A"& i) = ""
.Range("F"& i) = .Range("C"& i) + .Range("D"& i)
.Rows(i + 1).Insert shift:=xlDown
End If
Next
End With
End If
End With
End Sub
isabelle
Le 2011-03-15 13:35, Manu a écrit :
J'essai avec ton code d'y inclure le code que m'a donné Isabelle :
déjà cette ligne n'a pas de sens,
Nom = Range("A65536").End(xlUp).Row To 1 Step -1
isabelle
Le 2011-03-15 16:41, Manu a écrit :Bonsoir Isabelle,
Ce qui signifierais que je devrais mettre le end with ici ?
Sub test()
With ActiveSheet
If .Index> 1 Then
With .Previous
Nom = .Name
Nom = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A"& i) Like "*Rapport*" Then
End With
End If
Range("C"& i) = Range("B"& i) mais de la feuil precedente
End If
End With
End Sub
Merci
"isabelle" a écrit dans le message de news:
iloh7v$bsj$bonjour Manu,
utilisation du point devant range est *important* entre le With et le
End
With
Sub test()
With ActiveSheet
If .Index> 1 Then
'With .Previous signifie que ce qui suit
'entre le With et le End With
'va s'executer sur la feuille précédente
With .Previous
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A"& i) Like "*Rapport*" Then
.Range("B"& i) = .Range("A"& i)
.Range("A"& i) = ""
.Range("F"& i) = .Range("C"& i) + .Range("D"& i)
.Rows(i + 1).Insert shift:=xlDown
End If
Next
End With
End If
End With
End Sub
isabelle
Le 2011-03-15 13:35, Manu a écrit :J'essai avec ton code d'y inclure le code que m'a donné Isabelle :
Oui, mais comment se fais t'il que je ne peux pas lui dire si mon resultat
est une erreur alors rien sinon donne moi le bon resultat, ce que l'on fais
classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" a écrit dans le message de news:
iloeas$25i$Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
DanielBizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" a écrit dans le message de news:
ilo8dd$imm$Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit conforme
à l'orthographe utilisé par Excel (sans majuscule et avec les accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
DanielBonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est pour
cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui me
precede, j'ai fais bien sur une recherchev, mais ca ne peut aller car je
souhaite tjrs faire les recherches dans la feuil precedentes, je pense
avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
Oui, mais comment se fais t'il que je ne peux pas lui dire si mon resultat
est une erreur alors rien sinon donne moi le bon resultat, ce que l'on fais
classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
iloeas$25i$1@speranza.aioe.org...
Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
Daniel
Bizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
ilo8dd$imm$1@speranza.aioe.org...
Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit conforme
à l'orthographe utilisé par Excel (sans majuscule et avec les accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
Daniel
Bonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est pour
cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui me
precede, j'ai fais bien sur une recherchev, mais ca ne peut aller car je
souhaite tjrs faire les recherches dans la feuil precedentes, je pense
avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
Oui, mais comment se fais t'il que je ne peux pas lui dire si mon resultat
est une erreur alors rien sinon donne moi le bon resultat, ce que l'on fais
classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" a écrit dans le message de news:
iloeas$25i$Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
DanielBizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" a écrit dans le message de news:
ilo8dd$imm$Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit conforme
à l'orthographe utilisé par Excel (sans majuscule et avec les accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
DanielBonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est pour
cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui me
precede, j'ai fais bien sur une recherchev, mais ca ne peut aller car je
souhaite tjrs faire les recherches dans la feuil precedentes, je pense
avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
Effectivement, je sais, mais je suis perdu dans ces meandres de codes, Plus
j'essaie d'apprendre, plus je crains de m'eloigner. En tous cas, merci pour
ton aide ainsi qu'aux autres volontaires.
Bonne nuit
Manu
Effectivement, je sais, mais je suis perdu dans ces meandres de codes, Plus
j'essaie d'apprendre, plus je crains de m'eloigner. En tous cas, merci pour
ton aide ainsi qu'aux autres volontaires.
Bonne nuit
Manu
Effectivement, je sais, mais je suis perdu dans ces meandres de codes, Plus
j'essaie d'apprendre, plus je crains de m'eloigner. En tous cas, merci pour
ton aide ainsi qu'aux autres volontaires.
Bonne nuit
Manu
Oui, mais comment se fais t'il que je ne peux pas lui dire si mon resultat
est une erreur alors rien sinon donne moi le bon resultat, ce que l'on fais
classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" a écrit dans le message de news:
iloeas$25i$Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
DanielBizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" a écrit dans le message de news:
ilo8dd$imm$Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit conforme
à l'orthographe utilisé par Excel (sans majuscule et avec les accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
DanielBonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est pour
cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui me
precede, j'ai fais bien sur une recherchev, mais ca ne peut aller car je
souhaite tjrs faire les recherches dans la feuil precedentes, je pense
avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
Oui, mais comment se fais t'il que je ne peux pas lui dire si mon resultat
est une erreur alors rien sinon donne moi le bon resultat, ce que l'on fais
classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
iloeas$25i$1@speranza.aioe.org...
Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
Daniel
Bizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
ilo8dd$imm$1@speranza.aioe.org...
Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit conforme
à l'orthographe utilisé par Excel (sans majuscule et avec les accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
Daniel
Bonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est pour
cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui me
precede, j'ai fais bien sur une recherchev, mais ca ne peut aller car je
souhaite tjrs faire les recherches dans la feuil precedentes, je pense
avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
Oui, mais comment se fais t'il que je ne peux pas lui dire si mon resultat
est une erreur alors rien sinon donne moi le bon resultat, ce que l'on fais
classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" a écrit dans le message de news:
iloeas$25i$Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
DanielBizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" a écrit dans le message de news:
ilo8dd$imm$Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit conforme
à l'orthographe utilisé par Excel (sans majuscule et avec les accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
DanielBonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est pour
cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui me
precede, j'ai fais bien sur une recherchev, mais ca ne peut aller car je
souhaite tjrs faire les recherches dans la feuil precedentes, je pense
avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
dit moi si tu comprend tout les lignes du code suivant ;
Sub test()
With ActiveSheet
If .Index > 1 Then
'With .Previous signifie que ce qui est
'entre le With et le End With
'va s'executer sur la feuille précédente
With .Previous
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A" & i) Like "*Rapport*" Then
.Range("B" & i) = .Range("A" & i)
.Range("A" & i) = ""
.Range("F" & i) = .Range("C" & i) + .Range("D" & i)
.Rows(i + 1).Insert shift:=xlDown
End If
Next
End With
End If
End With
End Sub
isabelle
Le 2011-03-15 18:01, Manu a écrit :Effectivement, je sais, mais je suis perdu dans ces meandres de codes,
Plus
j'essaie d'apprendre, plus je crains de m'eloigner. En tous cas, merci
pour
ton aide ainsi qu'aux autres volontaires.
Bonne nuit
Manu
dit moi si tu comprend tout les lignes du code suivant ;
Sub test()
With ActiveSheet
If .Index > 1 Then
'With .Previous signifie que ce qui est
'entre le With et le End With
'va s'executer sur la feuille précédente
With .Previous
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A" & i) Like "*Rapport*" Then
.Range("B" & i) = .Range("A" & i)
.Range("A" & i) = ""
.Range("F" & i) = .Range("C" & i) + .Range("D" & i)
.Rows(i + 1).Insert shift:=xlDown
End If
Next
End With
End If
End With
End Sub
isabelle
Le 2011-03-15 18:01, Manu a écrit :
Effectivement, je sais, mais je suis perdu dans ces meandres de codes,
Plus
j'essaie d'apprendre, plus je crains de m'eloigner. En tous cas, merci
pour
ton aide ainsi qu'aux autres volontaires.
Bonne nuit
Manu
dit moi si tu comprend tout les lignes du code suivant ;
Sub test()
With ActiveSheet
If .Index > 1 Then
'With .Previous signifie que ce qui est
'entre le With et le End With
'va s'executer sur la feuille précédente
With .Previous
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Range("A" & i) Like "*Rapport*" Then
.Range("B" & i) = .Range("A" & i)
.Range("A" & i) = ""
.Range("F" & i) = .Range("C" & i) + .Range("D" & i)
.Rows(i + 1).Insert shift:=xlDown
End If
Next
End With
End If
End With
End Sub
isabelle
Le 2011-03-15 18:01, Manu a écrit :Effectivement, je sais, mais je suis perdu dans ces meandres de codes,
Plus
j'essaie d'apprendre, plus je crains de m'eloigner. En tous cas, merci
pour
ton aide ainsi qu'aux autres volontaires.
Bonne nuit
Manu
C'est parceque tu utilise une version d'Excel antérieure à XL2007 ou que
tu utilises un classeur au format XL2003. Dans ce cas, tu es limité à 7
niveaux d'imbrication. Si tu as XL2007 ou postérieur, utilise la fonction
SIERREUR :
=SIERREUR(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0);"")
DanielOui, mais comment se fais t'il que je ne peux pas lui dire si mon
resultat est une erreur alors rien sinon donne moi le bon resultat, ce
que l'on fais classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" a écrit dans le message de news:
iloeas$25i$Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
DanielBizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" a écrit dans le message de news:
ilo8dd$imm$Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit
conforme à l'orthographe utilisé par Excel (sans majuscule et avec les
accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
DanielBonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est
pour cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui
me precede, j'ai fais bien sur une recherchev, mais ca ne peut aller
car je souhaite tjrs faire les recherches dans la feuil precedentes,
je pense avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
C'est parceque tu utilise une version d'Excel antérieure à XL2007 ou que
tu utilises un classeur au format XL2003. Dans ce cas, tu es limité à 7
niveaux d'imbrication. Si tu as XL2007 ou postérieur, utilise la fonction
SIERREUR :
=SIERREUR(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0);"")
Daniel
Oui, mais comment se fais t'il que je ne peux pas lui dire si mon
resultat est une erreur alors rien sinon donne moi le bon resultat, ce
que l'on fais classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
iloeas$25i$1@speranza.aioe.org...
Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
Daniel
Bizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
ilo8dd$imm$1@speranza.aioe.org...
Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit
conforme à l'orthographe utilisé par Excel (sans majuscule et avec les
accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
Daniel
Bonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est
pour cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui
me precede, j'ai fais bien sur une recherchev, mais ca ne peut aller
car je souhaite tjrs faire les recherches dans la feuil precedentes,
je pense avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
C'est parceque tu utilise une version d'Excel antérieure à XL2007 ou que
tu utilises un classeur au format XL2003. Dans ce cas, tu es limité à 7
niveaux d'imbrication. Si tu as XL2007 ou postérieur, utilise la fonction
SIERREUR :
=SIERREUR(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0);"")
DanielOui, mais comment se fais t'il que je ne peux pas lui dire si mon
resultat est une erreur alors rien sinon donne moi le bon resultat, ce
que l'on fais classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" a écrit dans le message de news:
iloeas$25i$Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
DanielBizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" a écrit dans le message de news:
ilo8dd$imm$Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit
conforme à l'orthographe utilisé par Excel (sans majuscule et avec les
accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
DanielBonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est
pour cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui
me precede, j'ai fais bien sur une recherchev, mais ca ne peut aller
car je souhaite tjrs faire les recherches dans la feuil precedentes,
je pense avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
Bonjour,
Sinon, utilise une mise en forme conditionnelle en testant la formule
(pour A1) :
=ESTNA(A1)
et en format, choisis une couleur de police blanche.
DanielOui, mais comment se fais t'il que je ne peux pas lui dire si mon
resultat est une erreur alors rien sinon donne moi le bon resultat, ce
que l'on fais classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" a écrit dans le message de news:
iloeas$25i$Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
DanielBizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" a écrit dans le message de news:
ilo8dd$imm$Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit
conforme à l'orthographe utilisé par Excel (sans majuscule et avec les
accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
DanielBonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est
pour cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui
me precede, j'ai fais bien sur une recherchev, mais ca ne peut aller
car je souhaite tjrs faire les recherches dans la feuil precedentes,
je pense avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
Bonjour,
Sinon, utilise une mise en forme conditionnelle en testant la formule
(pour A1) :
=ESTNA(A1)
et en format, choisis une couleur de police blanche.
Daniel
Oui, mais comment se fais t'il que je ne peux pas lui dire si mon
resultat est une erreur alors rien sinon donne moi le bon resultat, ce
que l'on fais classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
iloeas$25i$1@speranza.aioe.org...
Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
Daniel
Bizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
ilo8dd$imm$1@speranza.aioe.org...
Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit
conforme à l'orthographe utilisé par Excel (sans majuscule et avec les
accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
Daniel
Bonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est
pour cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui
me precede, j'ai fais bien sur une recherchev, mais ca ne peut aller
car je souhaite tjrs faire les recherches dans la feuil precedentes,
je pense avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
Bonjour,
Sinon, utilise une mise en forme conditionnelle en testant la formule
(pour A1) :
=ESTNA(A1)
et en format, choisis une couleur de police blanche.
DanielOui, mais comment se fais t'il que je ne peux pas lui dire si mon
resultat est une erreur alors rien sinon donne moi le bon resultat, ce
que l'on fais classiquement dans les recherchev.
C'est vraiment etrange
Merci encore Daniel.
Manu
"DanielCo" a écrit dans le message de news:
iloeas$25i$Je te retourne le classeur modifié :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijo7lUafX.xls
DanielBizarre,
Quand je fais ca, la formule bloque sur le mot CELLULE
=si(esterreur(RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0));"";RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0))
"DanielCo" a écrit dans le message de news:
ilo8dd$imm$Bonsoir,
En C2, ppour février et à condition que le nom des onglets soit
conforme à l'orthographe utilisé par Excel (sans majuscule et avec les
accents) :
=RECHERCHEV(A2;INDIRECT("'"&TEXTE(DATEVAL(STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;31))-1;"mmmm
aaaa")&"'!$A$2:$B$15");2;0)
DanielBonsoir,
Encore un nouveau soucis, mais celui si me parait plus chaud, c'est
pour cela que je joint un fichier exemple :
http://www.cijoint.fr/cjlink.php?file=cj201103/cijZRDASg8.xls
En faites, je veux aller chercher une cellule mais dans la feuil qui
me precede, j'ai fais bien sur une recherchev, mais ca ne peut aller
car je souhaite tjrs faire les recherches dans la feuil precedentes,
je pense avoir bien expliqué sur le fichier joint.
Dites moi si je ne suis pas clair.
Merci à vous
Manu
Bonjour Isabelle,
Ho que non, je suis tres loin de comprendre, mais j'essaie...
With ActiveSheet
Avec la feuille ou je suis
If .Index> 1 Then
Si cette est apres la 1ere feuil
With .Previous
Je vais sur la feuil precedente
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
i etant une variable me prenant la colonne A en remontant cellule par
cellule
If .Range("A"& i) Like "*Rapport*" Then
Si dans la colonne A en remontant (i) je trouve une cellule comprenant le
mot "rapport"
Range("B"& i) = .Range("A"& i)
Alors va dans la colonne B en face de où tu as trouvé "rapport" et prend la
cellule de la colonne A
Range("A"& i) = ""
Du coup dans cette cellule de la colonne A tu met rien
Range("F"& i) = .Range("C"& i) + .Range("D"& i)
Puis va dans la colonne F pour faire la formile addition de C et D
Rows(i + 1).Insert shift:=xlDown
Inser une ligne
end if
Next
End With
Alors là sur les end if Next End With je ne sais jamais où il faut les
mettre ca rje ne comprend rien au boucles
Je n'ais jamais fais de VBA et n'ais aucune logique, mais j'essaie
d'apprendre aupres de vous en essayant de comprendre les codes, meme si je
suis sure de souvent me tromper ! Mais j'y arriverais à force.
Dis moi si je suis à coté ou pas. Merci
Manu
Bonjour Isabelle,
Ho que non, je suis tres loin de comprendre, mais j'essaie...
With ActiveSheet
Avec la feuille ou je suis
If .Index> 1 Then
Si cette est apres la 1ere feuil
With .Previous
Je vais sur la feuil precedente
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
i etant une variable me prenant la colonne A en remontant cellule par
cellule
If .Range("A"& i) Like "*Rapport*" Then
Si dans la colonne A en remontant (i) je trouve une cellule comprenant le
mot "rapport"
Range("B"& i) = .Range("A"& i)
Alors va dans la colonne B en face de où tu as trouvé "rapport" et prend la
cellule de la colonne A
Range("A"& i) = ""
Du coup dans cette cellule de la colonne A tu met rien
Range("F"& i) = .Range("C"& i) + .Range("D"& i)
Puis va dans la colonne F pour faire la formile addition de C et D
Rows(i + 1).Insert shift:=xlDown
Inser une ligne
end if
Next
End With
Alors là sur les end if Next End With je ne sais jamais où il faut les
mettre ca rje ne comprend rien au boucles
Je n'ais jamais fais de VBA et n'ais aucune logique, mais j'essaie
d'apprendre aupres de vous en essayant de comprendre les codes, meme si je
suis sure de souvent me tromper ! Mais j'y arriverais à force.
Dis moi si je suis à coté ou pas. Merci
Manu
Bonjour Isabelle,
Ho que non, je suis tres loin de comprendre, mais j'essaie...
With ActiveSheet
Avec la feuille ou je suis
If .Index> 1 Then
Si cette est apres la 1ere feuil
With .Previous
Je vais sur la feuil precedente
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
i etant une variable me prenant la colonne A en remontant cellule par
cellule
If .Range("A"& i) Like "*Rapport*" Then
Si dans la colonne A en remontant (i) je trouve une cellule comprenant le
mot "rapport"
Range("B"& i) = .Range("A"& i)
Alors va dans la colonne B en face de où tu as trouvé "rapport" et prend la
cellule de la colonne A
Range("A"& i) = ""
Du coup dans cette cellule de la colonne A tu met rien
Range("F"& i) = .Range("C"& i) + .Range("D"& i)
Puis va dans la colonne F pour faire la formile addition de C et D
Rows(i + 1).Insert shift:=xlDown
Inser une ligne
end if
Next
End With
Alors là sur les end if Next End With je ne sais jamais où il faut les
mettre ca rje ne comprend rien au boucles
Je n'ais jamais fais de VBA et n'ais aucune logique, mais j'essaie
d'apprendre aupres de vous en essayant de comprendre les codes, meme si je
suis sure de souvent me tromper ! Mais j'y arriverais à force.
Dis moi si je suis à coté ou pas. Merci
Manu
bonjour Manu,
bravo, c'est presque tout bon,
juste une petite chose
avec With
on ne va pas sur l'objet mais on fait avec l'objet, ce qui implique que
cette objet n'est pas une sélection
pour les end With, End If etc.
à chaque fois que tu les utilise mets tout de suite le End approprié ou le
Next
par exemple :
With Sheets("x")
End With
ensuite
si tu veut faire une boucle sur les cellules de la feuille x, tu
inscris( For MaVar...; un ligne vide; Next MaVar) entre le "With et End
With"
note : il vaut mieux décaler un peu vers la droite pour facilité la
lecture du code, et aussi préciser à quel variable le next s'applique
car s'il y a beaucoup de boucle dans une même macro c'est plus facile de
s'y retrouver de cette façon.
With Sheets("x")
For i = 1 to 10
Next i
End With
ensuite par exemple tu voudrais faire une action sur une cellule mais à
une condition, alors tu écrit le ( IF Then ; une ligne vide; End IF)
With Sheets("x")
For i = 1 to 10
If Then
End If
Next i
End With
ensuite tu écrit la condition et l'action qui doit s'exécuter.
de cette manière tu n'oublie jamais un End ou un Next et il sont placés au
bonne endroit
With Sheets("x")
For i = 1 to 10
If .Range("A" & i) = 2 Then
.Range("B" & i).Interior.ColorIndex = 3
End If
Next i
End With
/isabelle/
*------------------------------------------------------------------*
Le 2011-03-16 13:09, Manu a écrit :Bonjour Isabelle,
Ho que non, je suis tres loin de comprendre, mais j'essaie...
With ActiveSheet
Avec la feuille ou je suis
If .Index> 1 Then
Si cette est apres la 1ere feuil
With .Previous
Je vais sur la feuil precedente
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
i etant une variable me prenant la colonne A en remontant cellule par
cellule
If .Range("A"& i) Like "*Rapport*" Then
Si dans la colonne A en remontant (i) je trouve une cellule comprenant le
mot "rapport"
Range("B"& i) = .Range("A"& i)
Alors va dans la colonne B en face de où tu as trouvé "rapport" et prend
la
cellule de la colonne A
Range("A"& i) = ""
Du coup dans cette cellule de la colonne A tu met rien
Range("F"& i) = .Range("C"& i) + .Range("D"& i)
Puis va dans la colonne F pour faire la formile addition de C et D
Rows(i + 1).Insert shift:=xlDown
Inser une ligne
end if
Next
End With
Alors là sur les end if Next End With je ne sais jamais où il faut les
mettre ca rje ne comprend rien au boucles
Je n'ais jamais fais de VBA et n'ais aucune logique, mais j'essaie
d'apprendre aupres de vous en essayant de comprendre les codes, meme si
je
suis sure de souvent me tromper ! Mais j'y arriverais à force.
Dis moi si je suis à coté ou pas. Merci
Manu
bonjour Manu,
bravo, c'est presque tout bon,
juste une petite chose
avec With
on ne va pas sur l'objet mais on fait avec l'objet, ce qui implique que
cette objet n'est pas une sélection
pour les end With, End If etc.
à chaque fois que tu les utilise mets tout de suite le End approprié ou le
Next
par exemple :
With Sheets("x")
End With
ensuite
si tu veut faire une boucle sur les cellules de la feuille x, tu
inscris( For MaVar...; un ligne vide; Next MaVar) entre le "With et End
With"
note : il vaut mieux décaler un peu vers la droite pour facilité la
lecture du code, et aussi préciser à quel variable le next s'applique
car s'il y a beaucoup de boucle dans une même macro c'est plus facile de
s'y retrouver de cette façon.
With Sheets("x")
For i = 1 to 10
Next i
End With
ensuite par exemple tu voudrais faire une action sur une cellule mais à
une condition, alors tu écrit le ( IF Then ; une ligne vide; End IF)
With Sheets("x")
For i = 1 to 10
If Then
End If
Next i
End With
ensuite tu écrit la condition et l'action qui doit s'exécuter.
de cette manière tu n'oublie jamais un End ou un Next et il sont placés au
bonne endroit
With Sheets("x")
For i = 1 to 10
If .Range("A" & i) = 2 Then
.Range("B" & i).Interior.ColorIndex = 3
End If
Next i
End With
/isabelle/
*------------------------------------------------------------------*
Le 2011-03-16 13:09, Manu a écrit :
Bonjour Isabelle,
Ho que non, je suis tres loin de comprendre, mais j'essaie...
With ActiveSheet
Avec la feuille ou je suis
If .Index> 1 Then
Si cette est apres la 1ere feuil
With .Previous
Je vais sur la feuil precedente
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
i etant une variable me prenant la colonne A en remontant cellule par
cellule
If .Range("A"& i) Like "*Rapport*" Then
Si dans la colonne A en remontant (i) je trouve une cellule comprenant le
mot "rapport"
Range("B"& i) = .Range("A"& i)
Alors va dans la colonne B en face de où tu as trouvé "rapport" et prend
la
cellule de la colonne A
Range("A"& i) = ""
Du coup dans cette cellule de la colonne A tu met rien
Range("F"& i) = .Range("C"& i) + .Range("D"& i)
Puis va dans la colonne F pour faire la formile addition de C et D
Rows(i + 1).Insert shift:=xlDown
Inser une ligne
end if
Next
End With
Alors là sur les end if Next End With je ne sais jamais où il faut les
mettre ca rje ne comprend rien au boucles
Je n'ais jamais fais de VBA et n'ais aucune logique, mais j'essaie
d'apprendre aupres de vous en essayant de comprendre les codes, meme si
je
suis sure de souvent me tromper ! Mais j'y arriverais à force.
Dis moi si je suis à coté ou pas. Merci
Manu
bonjour Manu,
bravo, c'est presque tout bon,
juste une petite chose
avec With
on ne va pas sur l'objet mais on fait avec l'objet, ce qui implique que
cette objet n'est pas une sélection
pour les end With, End If etc.
à chaque fois que tu les utilise mets tout de suite le End approprié ou le
Next
par exemple :
With Sheets("x")
End With
ensuite
si tu veut faire une boucle sur les cellules de la feuille x, tu
inscris( For MaVar...; un ligne vide; Next MaVar) entre le "With et End
With"
note : il vaut mieux décaler un peu vers la droite pour facilité la
lecture du code, et aussi préciser à quel variable le next s'applique
car s'il y a beaucoup de boucle dans une même macro c'est plus facile de
s'y retrouver de cette façon.
With Sheets("x")
For i = 1 to 10
Next i
End With
ensuite par exemple tu voudrais faire une action sur une cellule mais à
une condition, alors tu écrit le ( IF Then ; une ligne vide; End IF)
With Sheets("x")
For i = 1 to 10
If Then
End If
Next i
End With
ensuite tu écrit la condition et l'action qui doit s'exécuter.
de cette manière tu n'oublie jamais un End ou un Next et il sont placés au
bonne endroit
With Sheets("x")
For i = 1 to 10
If .Range("A" & i) = 2 Then
.Range("B" & i).Interior.ColorIndex = 3
End If
Next i
End With
/isabelle/
*------------------------------------------------------------------*
Le 2011-03-16 13:09, Manu a écrit :Bonjour Isabelle,
Ho que non, je suis tres loin de comprendre, mais j'essaie...
With ActiveSheet
Avec la feuille ou je suis
If .Index> 1 Then
Si cette est apres la 1ere feuil
With .Previous
Je vais sur la feuil precedente
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
i etant une variable me prenant la colonne A en remontant cellule par
cellule
If .Range("A"& i) Like "*Rapport*" Then
Si dans la colonne A en remontant (i) je trouve une cellule comprenant le
mot "rapport"
Range("B"& i) = .Range("A"& i)
Alors va dans la colonne B en face de où tu as trouvé "rapport" et prend
la
cellule de la colonne A
Range("A"& i) = ""
Du coup dans cette cellule de la colonne A tu met rien
Range("F"& i) = .Range("C"& i) + .Range("D"& i)
Puis va dans la colonne F pour faire la formile addition de C et D
Rows(i + 1).Insert shift:=xlDown
Inser une ligne
end if
Next
End With
Alors là sur les end if Next End With je ne sais jamais où il faut les
mettre ca rje ne comprend rien au boucles
Je n'ais jamais fais de VBA et n'ais aucune logique, mais j'essaie
d'apprendre aupres de vous en essayant de comprendre les codes, meme si
je
suis sure de souvent me tromper ! Mais j'y arriverais à force.
Dis moi si je suis à coté ou pas. Merci
Manu
