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
MichDenis
Tu pourrais avoir quelque chose comme :
L'utilisation de RC dans une formule est indigeste...Tu aurais avantage à utiliser l'objet "Range" dans tes formules, c'est beaucoup plus parlant ....Il faut apprendre à traduire ce que donne l'enregistreur de code.
'----------------------------------------------- Sub test() With Cells(2, 9) .FormulaR1C1 = "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],Qté,7,FALSE))" .Copy End With With Range("Num") With .Item(.Rows.Count, .Columns.Count).Offset(0, -5) .PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone With Range(.Item(1), .Item(1).End(xlUp)) .PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone End With End With End With Application.CutCopyMode = False End Sub '-----------------------------------------------
"pb" a écrit dans le message de groupe de discussion : # Bonjour, Je sais cela beaucoup de questions en quelques jours. Est ce que qulequ'un pourrait me dire si il y a un moyen de simplifier ce code
L'utilisation de RC dans une formule est indigeste...Tu aurais
avantage à utiliser l'objet "Range" dans tes formules, c'est
beaucoup plus parlant ....Il faut apprendre à traduire ce que
donne l'enregistreur de code.
'-----------------------------------------------
Sub test()
With Cells(2, 9)
.FormulaR1C1 = "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],Qté,7,FALSE))"
.Copy
End With
With Range("Num")
With .Item(.Rows.Count, .Columns.Count).Offset(0, -5)
.PasteSpecial Paste:=xlPasteFormulas, _
Operation:=xlNone
With Range(.Item(1), .Item(1).End(xlUp))
.PasteSpecial Paste:=xlPasteFormulas, _
Operation:=xlNone
End With
End With
End With
Application.CutCopyMode = False
End Sub
'-----------------------------------------------
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
#GtW88RsJHA.4324@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je sais cela beaucoup de questions en quelques jours.
Est ce que qulequ'un pourrait me dire si il y a un moyen de simplifier ce
code
L'utilisation de RC dans une formule est indigeste...Tu aurais avantage à utiliser l'objet "Range" dans tes formules, c'est beaucoup plus parlant ....Il faut apprendre à traduire ce que donne l'enregistreur de code.
'----------------------------------------------- Sub test() With Cells(2, 9) .FormulaR1C1 = "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],Qté,7,FALSE))" .Copy End With With Range("Num") With .Item(.Rows.Count, .Columns.Count).Offset(0, -5) .PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone With Range(.Item(1), .Item(1).End(xlUp)) .PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone End With End With End With Application.CutCopyMode = False End Sub '-----------------------------------------------
"pb" a écrit dans le message de groupe de discussion : # Bonjour, Je sais cela beaucoup de questions en quelques jours. Est ce que qulequ'un pourrait me dire si il y a un moyen de simplifier ce code
Ok, Merci Mais je plante car je suis sur que je me complique la vie dans mon code car cette opération se répète 15 fois pour 15 critères différents.
"MichDenis" a écrit dans le message de news:
Tu pourrais avoir quelque chose comme :
L'utilisation de RC dans une formule est indigeste...Tu aurais avantage à utiliser l'objet "Range" dans tes formules, c'est beaucoup plus parlant ....Il faut apprendre à traduire ce que donne l'enregistreur de code.
'----------------------------------------------- Sub test() With Cells(2, 9) .FormulaR1C1 = "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],Qté,7,FALSE))" .Copy End With With Range("Num") With .Item(.Rows.Count, .Columns.Count).Offset(0, -5) .PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone With Range(.Item(1), .Item(1).End(xlUp)) .PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone End With End With End With Application.CutCopyMode = False End Sub '-----------------------------------------------
"pb" a écrit dans le message de groupe de discussion : # Bonjour, Je sais cela beaucoup de questions en quelques jours. Est ce que qulequ'un pourrait me dire si il y a un moyen de simplifier ce code
Ok, Merci
Mais je plante car je suis sur que je me complique la vie dans mon code car
cette opération se répète 15 fois pour 15 critères différents.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
EEE5B79C-1F87-4DF6-A0A1-C941008A999D@microsoft.com...
Tu pourrais avoir quelque chose comme :
L'utilisation de RC dans une formule est indigeste...Tu aurais
avantage à utiliser l'objet "Range" dans tes formules, c'est
beaucoup plus parlant ....Il faut apprendre à traduire ce que
donne l'enregistreur de code.
'-----------------------------------------------
Sub test()
With Cells(2, 9)
.FormulaR1C1 = "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],Qté,7,FALSE))"
.Copy
End With
With Range("Num")
With .Item(.Rows.Count, .Columns.Count).Offset(0, -5)
.PasteSpecial Paste:=xlPasteFormulas, _
Operation:=xlNone
With Range(.Item(1), .Item(1).End(xlUp))
.PasteSpecial Paste:=xlPasteFormulas, _
Operation:=xlNone
End With
End With
End With
Application.CutCopyMode = False
End Sub
'-----------------------------------------------
"pb" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
#GtW88RsJHA.4324@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je sais cela beaucoup de questions en quelques jours.
Est ce que qulequ'un pourrait me dire si il y a un moyen de simplifier ce
code
Ok, Merci Mais je plante car je suis sur que je me complique la vie dans mon code car cette opération se répète 15 fois pour 15 critères différents.
"MichDenis" a écrit dans le message de news:
Tu pourrais avoir quelque chose comme :
L'utilisation de RC dans une formule est indigeste...Tu aurais avantage à utiliser l'objet "Range" dans tes formules, c'est beaucoup plus parlant ....Il faut apprendre à traduire ce que donne l'enregistreur de code.
'----------------------------------------------- Sub test() With Cells(2, 9) .FormulaR1C1 = "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],Qté,7,FALSE))" .Copy End With With Range("Num") With .Item(.Rows.Count, .Columns.Count).Offset(0, -5) .PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone With Range(.Item(1), .Item(1).End(xlUp)) .PasteSpecial Paste:=xlPasteFormulas, _ Operation:=xlNone End With End With End With Application.CutCopyMode = False End Sub '-----------------------------------------------
"pb" a écrit dans le message de groupe de discussion : # Bonjour, Je sais cela beaucoup de questions en quelques jours. Est ce que qulequ'un pourrait me dire si il y a un moyen de simplifier ce code
| Mais je plante car je suis sur que je me complique la vie | dans mon code car cette opération se répète 15 fois | pour 15 critères différents.
Si ta question ne correspond pas à la problématique de ton application, il ne faut pas te surprendre d'obtenir une réponse insatisfaisante !
pb
C'est jamais ce que j'ai dis ta réponse me satisfait, mais je me posais la question de savoirsi répété cette opération 15 fois ne compliquait et si il n'y avait pas plus simple que Mon code. C'est tout "MichDenis" a écrit dans le message de news:
| Mais je plante car je suis sur que je me complique la vie | dans mon code car cette opération se répète 15 fois | pour 15 critères différents.
Si ta question ne correspond pas à la problématique de ton application, il ne faut pas te surprendre d'obtenir une réponse insatisfaisante !
C'est jamais ce que j'ai dis ta réponse me satisfait, mais je me posais la
question de savoirsi répété cette opération 15 fois ne compliquait et si il
n'y avait pas plus simple que Mon code.
C'est tout
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
E52E3D9E-C4AF-4972-A1C4-2DB473ECC86B@microsoft.com...
| Mais je plante car je suis sur que je me complique la vie
| dans mon code car cette opération se répète 15 fois
| pour 15 critères différents.
Si ta question ne correspond pas à la problématique de ton application,
il ne faut pas te surprendre d'obtenir une réponse insatisfaisante !
C'est jamais ce que j'ai dis ta réponse me satisfait, mais je me posais la question de savoirsi répété cette opération 15 fois ne compliquait et si il n'y avait pas plus simple que Mon code. C'est tout "MichDenis" a écrit dans le message de news:
| Mais je plante car je suis sur que je me complique la vie | dans mon code car cette opération se répète 15 fois | pour 15 critères différents.
Si ta question ne correspond pas à la problématique de ton application, il ne faut pas te surprendre d'obtenir une réponse insatisfaisante !
MichDenis
| je me posais la question de savoirsi répété cette opération | 15 fois ne compliquait et si il n'y avait pas plus simple | que Mon code.
Justement comment savoir ... cette interrogation ne faisait pas parti de ta question initiale et tu n'ajoutes aucune information pour pouvoir infirmer ou confirmer ton expectative.
| je me posais la question de savoirsi répété cette opération
| 15 fois ne compliquait et si il n'y avait pas plus simple
| que Mon code.
Justement comment savoir ... cette interrogation ne faisait
pas parti de ta question initiale et tu n'ajoutes aucune information
pour pouvoir infirmer ou confirmer ton expectative.
| je me posais la question de savoirsi répété cette opération | 15 fois ne compliquait et si il n'y avait pas plus simple | que Mon code.
Justement comment savoir ... cette interrogation ne faisait pas parti de ta question initiale et tu n'ajoutes aucune information pour pouvoir infirmer ou confirmer ton expectative.
J'extrait une référence produit. Ensuite avec Cells(2, 2).Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(INDEX(Libellé,MATCH(RC41,code,0),1)),"""",(INDEX(Libellé,MATCH(RC41,code,0),1)))" Selection.Copy Une autre donnée et ainsi de suite sur 15 col.
Je pensais qu'il y avait plus simple et q'une fois la rérrence extraite je pouvais peut-être copier toute la ligne correspondante. J'en suis là de mes réflexions
"MichDenis" a écrit dans le message de news:
| je me posais la question de savoirsi répété cette opération | 15 fois ne compliquait et si il n'y avait pas plus simple | que Mon code.
Justement comment savoir ... cette interrogation ne faisait pas parti de ta question initiale et tu n'ajoutes aucune information pour pouvoir infirmer ou confirmer ton expectative.
J'extrait une référence produit.
Ensuite avec
Cells(2, 2).Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(INDEX(Libellé,MATCH(RC41,code,0),1)),"""",(INDEX(Libellé,MATCH(RC41,code,0),1)))"
Selection.Copy
Une autre donnée et ainsi de suite sur 15 col.
Je pensais qu'il y avait plus simple et q'une fois la rérrence extraite je
pouvais peut-être copier toute la ligne correspondante.
J'en suis là de mes réflexions
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
etTd7DUsJHA.4684@TK2MSFTNGP04.phx.gbl...
| je me posais la question de savoirsi répété cette opération
| 15 fois ne compliquait et si il n'y avait pas plus simple
| que Mon code.
Justement comment savoir ... cette interrogation ne faisait
pas parti de ta question initiale et tu n'ajoutes aucune information
pour pouvoir infirmer ou confirmer ton expectative.
J'extrait une référence produit. Ensuite avec Cells(2, 2).Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(INDEX(Libellé,MATCH(RC41,code,0),1)),"""",(INDEX(Libellé,MATCH(RC41,code,0),1)))" Selection.Copy Une autre donnée et ainsi de suite sur 15 col.
Je pensais qu'il y avait plus simple et q'une fois la rérrence extraite je pouvais peut-être copier toute la ligne correspondante. J'en suis là de mes réflexions
"MichDenis" a écrit dans le message de news:
| je me posais la question de savoirsi répété cette opération | 15 fois ne compliquait et si il n'y avait pas plus simple | que Mon code.
Justement comment savoir ... cette interrogation ne faisait pas parti de ta question initiale et tu n'ajoutes aucune information pour pouvoir infirmer ou confirmer ton expectative.
Merci,
Deux je suis là dessus.
Et de 50 et quelques lignes je passe à une.
Merci Beaucoup
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
10B92E66-8711-47C9-B1E7-63F1B3C623E7@microsoft.com...
