Bonjour,
Est-il possible d'ajouter automatiquement une colonne de la "Feuil2" à la
"Feuil5" ?
Suivant fichier joint avec son code.
http://www.cijoint.fr/cjlink.php?file=cj201003/cijskpwsOL.xls
Cordialement
Guy
Ajouter le contenu de monLieu dans mesIngredients : mesIngredients(4, tmp) = monLieu et mesIngredients(4, n) = monLieu
Agrandir la taille de nettoyage de la feuille : .Range("D2:G" & .Cells(65536, 4).End(xlUp).Row + 1).ClearContents
Et c'est tout.
Attention, cela prend en compte le dernier lieu dans les recettes disponibles.
Cordialement,
F.
Guy85
Bonjour F, Merci de m'avoir répondu. Je n'y croyais pas, je ne te voyais pas dans les réponses de post. Eh bien merci de ton aide, ça fonctionne il suffit d'adapter tout ça. Cordialement Guy
"FdeCourt" a écrit dans le message de news:
Salut Guy,
J'ai modifié le code dans le fichier joint pour prendre en compte une colonne supplémentaire
http://tinyurl.com/yz7ftkh
Il y a plusieurs choses à modifier :
la variable mesRecettes mesRecettes = Feuil1.Range("A1:E" & Feuil1.Cells(65536, 4).End(xlUp).Row).Value
les dimensions de mesIngredient : ReDim Preserve mesIngredients(1 To 4, 0 To n)
Ajouter le contenu de monLieu dans mesIngredients : mesIngredients(4, tmp) = monLieu et mesIngredients(4, n) = monLieu
Agrandir la taille de nettoyage de la feuille : .Range("D2:G" & .Cells(65536, 4).End(xlUp).Row + 1).ClearContents
Et c'est tout.
Attention, cela prend en compte le dernier lieu dans les recettes disponibles.
Cordialement,
F.
Bonjour F,
Merci de m'avoir répondu.
Je n'y croyais pas, je ne te voyais pas dans les réponses de post.
Eh bien merci de ton aide, ça fonctionne il suffit d'adapter tout ça.
Cordialement
Guy
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
2de2fca7-01f2-435c-9517-02beba944d41@q21g2000yqm.googlegroups.com...
Salut Guy,
J'ai modifié le code dans le fichier joint pour prendre en compte une
colonne supplémentaire
http://tinyurl.com/yz7ftkh
Il y a plusieurs choses à modifier :
la variable mesRecettes
mesRecettes = Feuil1.Range("A1:E" & Feuil1.Cells(65536,
4).End(xlUp).Row).Value
les dimensions de mesIngredient :
ReDim Preserve mesIngredients(1 To 4, 0 To n)
Bonjour F, Merci de m'avoir répondu. Je n'y croyais pas, je ne te voyais pas dans les réponses de post. Eh bien merci de ton aide, ça fonctionne il suffit d'adapter tout ça. Cordialement Guy
"FdeCourt" a écrit dans le message de news:
Salut Guy,
J'ai modifié le code dans le fichier joint pour prendre en compte une colonne supplémentaire
http://tinyurl.com/yz7ftkh
Il y a plusieurs choses à modifier :
la variable mesRecettes mesRecettes = Feuil1.Range("A1:E" & Feuil1.Cells(65536, 4).End(xlUp).Row).Value
les dimensions de mesIngredient : ReDim Preserve mesIngredients(1 To 4, 0 To n)
Bonjour, Surtout ne soit pas désolé. J'étais simplement agréablement surpris d'avoir une réponse. En plus, je ne suis pas tout seul à dépanner. Et puis de toute façon, j'attends comme tout le monde, chacun son tour. Cordialement Guy
"FdeCourt" a écrit dans le message de news:
Désolé, j'étais assez occupé ;)
Bonjour,
Surtout ne soit pas désolé.
J'étais simplement agréablement surpris d'avoir une réponse.
En plus, je ne suis pas tout seul à dépanner.
Et puis de toute façon, j'attends comme tout le monde, chacun son tour.
Cordialement
Guy
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
49c8dc2a-1df9-46b9-8dae-3ae5ceecb5ca@b30g2000yqd.googlegroups.com...
Désolé, j'étais assez occupé ;)
Bonjour, Surtout ne soit pas désolé. J'étais simplement agréablement surpris d'avoir une réponse. En plus, je ne suis pas tout seul à dépanner. Et puis de toute façon, j'attends comme tout le monde, chacun son tour. Cordialement Guy