J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la dernière
ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la
feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la
dernière ligne vide en commencant par le bas
With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt
.Range("b" & num).Value = "strapotin"
.Range("e" & num).Value = Ctr
.Range("f" & num).Value =
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
Daniel
Bonjour. Essaie : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B3"), 2) Cordialement. Daniel "valentine" a écrit dans le message de news: dhr4b3$hot$
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la dernière ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à "strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la dernière ligne vide en commencant par le bas With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt .Range("b" & num).Value = "strapotin" .Range("e" & num).Value = Ctr .Range("f" & num).Value > Merci d'avance Valentine
Bonjour.
Essaie :
.Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value,
Sheets("Tarif").Range("A1:B3"), 2)
Cordialement.
Daniel
"valentine" <valentine@tiscali.fr> a écrit dans le message de news:
dhr4b3$hot$1@news.tiscali.fr...
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la
dernière
ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la
feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la
dernière ligne vide en commencant par le bas
With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt
.Range("b" & num).Value = "strapotin"
.Range("e" & num).Value = Ctr
.Range("f" & num).Value >
Merci d'avance
Valentine
Bonjour. Essaie : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B3"), 2) Cordialement. Daniel "valentine" a écrit dans le message de news: dhr4b3$hot$
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la dernière ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à "strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la dernière ligne vide en commencant par le bas With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt .Range("b" & num).Value = "strapotin" .Range("e" & num).Value = Ctr .Range("f" & num).Value > Merci d'avance Valentine
valentine
Bonjour Daniel,
C"est effectivement ce que je cherchais. Par contre, il a fallu que je modifie .Range("A1:B3") et mettre .Range("A1:B27") pour que cela fonctionne. J'ai 27 lignes d'articles. Par contre, si je dois rajouter une ligne d'articles je suis obligée d'aller modifier le code. J'ai essayé de faire "A1:B100" mais cela ne lui plait pas Et si je donnais un nom à cette zone, tu penses que cela résoudrais le problème? .
Valentine
"Daniel" a écrit dans le message de news:
Bonjour. Essaie : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B3"), 2) Cordialement. Daniel "valentine" a écrit dans le message de news: dhr4b3$hot$
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la dernière ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la dernière ligne vide en commencant par le bas With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt .Range("b" & num).Value = "strapotin" .Range("e" & num).Value = Ctr .Range("f" & num).Value > > Merci d'avance Valentine
Bonjour Daniel,
C"est effectivement ce que je cherchais. Par contre, il a fallu que je
modifie .Range("A1:B3") et mettre .Range("A1:B27") pour que cela
fonctionne. J'ai 27 lignes d'articles. Par contre, si je dois rajouter une
ligne d'articles je suis obligée d'aller modifier le code. J'ai essayé de
faire "A1:B100" mais cela ne lui plait pas
Et si je donnais un nom à cette zone, tu penses que cela résoudrais le
problème? .
Valentine
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uSObnsByFHA.2132@TK2MSFTNGP15.phx.gbl...
Bonjour.
Essaie :
.Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value,
Sheets("Tarif").Range("A1:B3"), 2)
Cordialement.
Daniel
"valentine" <valentine@tiscali.fr> a écrit dans le message de news:
dhr4b3$hot$1@news.tiscali.fr...
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la
dernière
ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la
feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond
à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma
feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la
dernière ligne vide en commencant par le bas
With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt
.Range("b" & num).Value = "strapotin"
.Range("e" & num).Value = Ctr
.Range("f" & num).Value > >
Merci d'avance
Valentine
C"est effectivement ce que je cherchais. Par contre, il a fallu que je modifie .Range("A1:B3") et mettre .Range("A1:B27") pour que cela fonctionne. J'ai 27 lignes d'articles. Par contre, si je dois rajouter une ligne d'articles je suis obligée d'aller modifier le code. J'ai essayé de faire "A1:B100" mais cela ne lui plait pas Et si je donnais un nom à cette zone, tu penses que cela résoudrais le problème? .
Valentine
"Daniel" a écrit dans le message de news:
Bonjour. Essaie : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B3"), 2) Cordialement. Daniel "valentine" a écrit dans le message de news: dhr4b3$hot$
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la dernière ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la dernière ligne vide en commencant par le bas With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt .Range("b" & num).Value = "strapotin" .Range("e" & num).Value = Ctr .Range("f" & num).Value > > Merci d'avance Valentine
Daniel
Bonsoir. Peut-être comme cela : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B100"), 2, False) Daniel
"valentine" a écrit dans le message de news: dhrj5t$3hs$
Bonjour Daniel,
C"est effectivement ce que je cherchais. Par contre, il a fallu que je modifie .Range("A1:B3") et mettre .Range("A1:B27") pour que cela fonctionne. J'ai 27 lignes d'articles. Par contre, si je dois rajouter une ligne d'articles je suis obligée d'aller modifier le code. J'ai essayé de faire "A1:B100" mais cela ne lui plait pas Et si je donnais un nom à cette zone, tu penses que cela résoudrais le problème? .
Valentine
"Daniel" a écrit dans le message de news:
Bonjour. Essaie : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B3"), 2) Cordialement. Daniel "valentine" a écrit dans le message de news: dhr4b3$hot$
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la dernière ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la dernière ligne vide en commencant par le bas With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt .Range("b" & num).Value = "strapotin" .Range("e" & num).Value = Ctr .Range("f" & num).Value >> > Merci d'avance Valentine
Bonsoir.
Peut-être comme cela :
.Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value,
Sheets("Tarif").Range("A1:B100"), 2, False)
Daniel
"valentine" <valentine@tiscali.fr> a écrit dans le message de news:
dhrj5t$3hs$1@news.tiscali.fr...
Bonjour Daniel,
C"est effectivement ce que je cherchais. Par contre, il a fallu que je
modifie .Range("A1:B3") et mettre .Range("A1:B27") pour que cela
fonctionne. J'ai 27 lignes d'articles. Par contre, si je dois rajouter une
ligne d'articles je suis obligée d'aller modifier le code. J'ai essayé de
faire "A1:B100" mais cela ne lui plait pas
Et si je donnais un nom à cette zone, tu penses que cela résoudrais le
problème? .
Valentine
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uSObnsByFHA.2132@TK2MSFTNGP15.phx.gbl...
Bonjour.
Essaie :
.Range("f" & num).Value = Application.VLookup(.Range("b" &
num).Value,
Sheets("Tarif").Range("A1:B3"), 2)
Cordialement.
Daniel
"valentine" <valentine@tiscali.fr> a écrit dans le message de news:
dhr4b3$hot$1@news.tiscali.fr...
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la
dernière
ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la
feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond
à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma
feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la
dernière ligne vide en commencant par le bas
With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et
txt
.Range("b" & num).Value = "strapotin"
.Range("e" & num).Value = Ctr
.Range("f" & num).Value >> >
Merci d'avance
Valentine
Bonsoir. Peut-être comme cela : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B100"), 2, False) Daniel
"valentine" a écrit dans le message de news: dhrj5t$3hs$
Bonjour Daniel,
C"est effectivement ce que je cherchais. Par contre, il a fallu que je modifie .Range("A1:B3") et mettre .Range("A1:B27") pour que cela fonctionne. J'ai 27 lignes d'articles. Par contre, si je dois rajouter une ligne d'articles je suis obligée d'aller modifier le code. J'ai essayé de faire "A1:B100" mais cela ne lui plait pas Et si je donnais un nom à cette zone, tu penses que cela résoudrais le problème? .
Valentine
"Daniel" a écrit dans le message de news:
Bonjour. Essaie : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B3"), 2) Cordialement. Daniel "valentine" a écrit dans le message de news: dhr4b3$hot$
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la dernière ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la dernière ligne vide en commencant par le bas With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt .Range("b" & num).Value = "strapotin" .Range("e" & num).Value = Ctr .Range("f" & num).Value >> > Merci d'avance Valentine
morganne
Bonsoir Daniel,
Un grand merci car je devenais folle à essayer de résoudre le problème.
Cela marche parfaitement!!!!!!!!
Bonne soirée Valentine
"Daniel" a écrit dans le message de news: %
Bonsoir. Peut-être comme cela : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B100"), 2, False) Daniel
"valentine" a écrit dans le message de news: dhrj5t$3hs$
Bonjour Daniel,
C"est effectivement ce que je cherchais. Par contre, il a fallu que je modifie .Range("A1:B3") et mettre .Range("A1:B27") pour que cela fonctionne. J'ai 27 lignes d'articles. Par contre, si je dois rajouter une ligne d'articles je suis obligée d'aller modifier le code. J'ai essayé de faire "A1:B100" mais cela ne lui plait pas Et si je donnais un nom à cette zone, tu penses que cela résoudrais le problème? .
Valentine
"Daniel" a écrit dans le message de news:
Bonjour. Essaie : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B3"), 2) Cordialement. Daniel "valentine" a écrit dans le message de news: dhr4b3$hot$
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la dernière ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la dernière ligne vide en commencant par le bas With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt .Range("b" & num).Value = "strapotin" .Range("e" & num).Value = Ctr .Range("f" & num).Value >>> > Merci d'avance Valentine
Bonsoir Daniel,
Un grand merci car je devenais folle à essayer de résoudre le problème.
Cela marche parfaitement!!!!!!!!
Bonne soirée
Valentine
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23q8rZLFyFHA.596@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Peut-être comme cela :
.Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value,
Sheets("Tarif").Range("A1:B100"), 2, False)
Daniel
"valentine" <valentine@tiscali.fr> a écrit dans le message de news:
dhrj5t$3hs$1@news.tiscali.fr...
Bonjour Daniel,
C"est effectivement ce que je cherchais. Par contre, il a fallu que je
modifie .Range("A1:B3") et mettre .Range("A1:B27") pour que cela
fonctionne. J'ai 27 lignes d'articles. Par contre, si je dois rajouter
une
ligne d'articles je suis obligée d'aller modifier le code. J'ai essayé de
faire "A1:B100" mais cela ne lui plait pas
Et si je donnais un nom à cette zone, tu penses que cela résoudrais le
problème? .
Valentine
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uSObnsByFHA.2132@TK2MSFTNGP15.phx.gbl...
Bonjour.
Essaie :
.Range("f" & num).Value = Application.VLookup(.Range("b" &
num).Value,
Sheets("Tarif").Range("A1:B3"), 2)
Cordialement.
Daniel
"valentine" <valentine@tiscali.fr> a écrit dans le message de news:
dhr4b3$hot$1@news.tiscali.fr...
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la
dernière
ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la
feuille "tarif" de ce même dossier, le tarif (colonne B) qui
correspond
à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma
feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la
dernière ligne vide en commencant par le bas
With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et
txt
.Range("b" & num).Value = "strapotin"
.Range("e" & num).Value = Ctr
.Range("f" & num).Value >>> >
Merci d'avance
Valentine
Un grand merci car je devenais folle à essayer de résoudre le problème.
Cela marche parfaitement!!!!!!!!
Bonne soirée Valentine
"Daniel" a écrit dans le message de news: %
Bonsoir. Peut-être comme cela : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B100"), 2, False) Daniel
"valentine" a écrit dans le message de news: dhrj5t$3hs$
Bonjour Daniel,
C"est effectivement ce que je cherchais. Par contre, il a fallu que je modifie .Range("A1:B3") et mettre .Range("A1:B27") pour que cela fonctionne. J'ai 27 lignes d'articles. Par contre, si je dois rajouter une ligne d'articles je suis obligée d'aller modifier le code. J'ai essayé de faire "A1:B100" mais cela ne lui plait pas Et si je donnais un nom à cette zone, tu penses que cela résoudrais le problème? .
Valentine
"Daniel" a écrit dans le message de news:
Bonjour. Essaie : .Range("f" & num).Value = Application.VLookup(.Range("b" & num).Value, Sheets("Tarif").Range("A1:B3"), 2) Cordialement. Daniel "valentine" a écrit dans le message de news: dhr4b3$hot$
Bonjour,
J'ai un code VBA (ci-dessous) et je voudrais pouvoir compléter la dernière ligne (.range("f"&num).value=) en lui disant d'aller chercher dans la feuille "tarif" de ce même dossier, le tarif (colonne B) qui correspond à
"strapotin". Cela m'évite de mettre une fonction recherchev sur ma feuille
excel.
num = Sheets("devis").Range("b65536").End(xlUp).Row + 1 'se place à la dernière ligne vide en commencant par le bas With Sheets("devis")
'récupère les informations saisies ou présentes dans les combobox et txt .Range("b" & num).Value = "strapotin" .Range("e" & num).Value = Ctr .Range("f" & num).Value >>> > Merci d'avance Valentine