Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel boucle sur une cellule liee

boucle sur une cellule liee

14 réponses
Avatar
andre
Bonsoir,

voici un code fait à l'enregistreur et je souhaite l'ameliorer
nous organisons pour une assoce un certain nbre de voyages 10/ans
donc j'ai une feuille "base Données; sorties; inscriptions; recettes;....
dans la base données j'ai une zone liste deroulante (cellule liee (A1)
la plage d'entrée sur la feuille sortie C9:C18 apres un filtre autom
les donnees sont recuperees par collage special sur la feuil "inscription"
puis les recettes de "base de donnees vers "recettes (janvier) "G10" et
l'intitulé du voyage en "A10"
donc je souhaite que le prochain voyage tout se deroule pareil mais la recette
doit aller en fevrier ("A26" et "G26" etc...)
pour cela il faut qu'il teste la cellule liee de la feuille "base donnees"
j'ai essaye par une boucle for next ca n' a pas marché
je m'en remets a vous
merci excusez de la longueur

Sub voyage1()
'
' voyage1 Macro
' Macro enregistrée le 21/12/2006 par Vermeil service
'

'
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="<>"
Range("B4:F403").Select
Selection.Copy
Sheets("Inscription").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Sheets("Inscription").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Base Données").Select
Application.CutCopyMode = False

la il faut qu'il commence le test la cellule liee A1

Sheets("Sorties").Select
Range("A9:B9").Select
Selection.Copy
Sheets("Recettes").Select
Range("A10:B10").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Base Données").Select
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recettes").Select
Range("G10").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Base Données").Select
Application.CutCopyMode = False
End Sub

--
andré
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Daniel
Bonjour.
Peux-tu mettre ton classeur (en effaçant les noms) sur wwww.cjoint.com ?
Les modifications dépendent de l'orthographe exacte, majuscules comprises
des valeurs possibles de A1.
Cordialement.
Daniel
"andre" a écrit dans le message de news:

Bonsoir,

voici un code fait à l'enregistreur et je souhaite l'ameliorer
nous organisons pour une assoce un certain nbre de voyages 10/ans
donc j'ai une feuille "base Données; sorties; inscriptions; recettes;....
dans la base données j'ai une zone liste deroulante (cellule liee (A1)
la plage d'entrée sur la feuille sortie C9:C18 apres un filtre autom
les donnees sont recuperees par collage special sur la feuil "inscription"
puis les recettes de "base de donnees vers "recettes (janvier) "G10" et
l'intitulé du voyage en "A10"
donc je souhaite que le prochain voyage tout se deroule pareil mais la
recette
doit aller en fevrier ("A26" et "G26" etc...)
pour cela il faut qu'il teste la cellule liee de la feuille "base donnees"
j'ai essaye par une boucle for next ca n' a pas marché
je m'en remets a vous
merci excusez de la longueur

Sub voyage1()
'
' voyage1 Macro
' Macro enregistrée le 21/12/2006 par Vermeil service
'

'
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="<>"
Range("B4:F403").Select
Selection.Copy
Sheets("Inscription").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Sheets("Inscription").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
Sheets("Base Données").Select
Application.CutCopyMode = False

la il faut qu'il commence le test la cellule liee A1

Sheets("Sorties").Select
Range("A9:B9").Select
Selection.Copy
Sheets("Recettes").Select
Range("A10:B10").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
Sheets("Base Données").Select
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recettes").Select
Range("G10").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
Sheets("Base Données").Select
Application.CutCopyMode = False
End Sub

--
andré




Avatar
andre
bonjour daniel
je n'ai jamais fait fait ce genre de procedure
Ok pour la piece jointe 1er bandeau
le 2eme bandeau quel URL?
le 3 eme ok mon Email
tu peux me renseigner
merci a++



Daniel a émis l'idée suivante :
Bonjour.
Peux-tu mettre ton classeur (en effaçant les noms) sur wwww.cjoint.com ?
Les modifications dépendent de l'orthographe exacte, majuscules comprises des
valeurs possibles de A1.
Cordialement.
Daniel
"andre" a écrit dans le message de news:





--
andré


Avatar
andre
file://C:Program FilesMesNewsAfftemp9.html

Daniel a exprimé avec précision :
Bonjour.
Peux-tu mettre ton classeur (en effaçant les noms) sur wwww.cjoint.com ?
Les modifications dépendent de l'orthographe exacte, majuscules comprises des
valeurs possibles de A1.
Cordialement.
Daniel
"andre" a écrit dans le message de news:

Bonsoir,

voici un code fait à l'enregistreur et je souhaite l'ameliorer
nous organisons pour une assoce un certain nbre de voyages 10/ans
donc j'ai une feuille "base Données; sorties; inscriptions; recettes;....
dans la base données j'ai une zone liste deroulante (cellule liee (A1)
la plage d'entrée sur la feuille sortie C9:C18 apres un filtre autom
les donnees sont recuperees par collage special sur la feuil "inscription"
puis les recettes de "base de donnees vers "recettes (janvier) "G10" et
l'intitulé du voyage en "A10"
donc je souhaite que le prochain voyage tout se deroule pareil mais la
recette
doit aller en fevrier ("A26" et "G26" etc...)
pour cela il faut qu'il teste la cellule liee de la feuille "base donnees"
j'ai essaye par une boucle for next ca n' a pas marché
je m'en remets a vous
merci excusez de la longueur

Sub voyage1()
'
' voyage1 Macro
' Macro enregistrée le 21/12/2006 par Vermeil service
'

'
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="<>"
Range("B4:F403").Select
Selection.Copy
Sheets("Inscription").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Sheets("Inscription").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=
_
xlNone, SkipBlanks:úlse, Transpose:úlse
Sheets("Base Données").Select
Application.CutCopyMode = False

la il faut qu'il commence le test la cellule liee A1

Sheets("Sorties").Select
Range("A9:B9").Select
Selection.Copy
Sheets("Recettes").Select
Range("A10:B10").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=
_
xlNone, SkipBlanks:úlse, Transpose:úlse
Sheets("Base Données").Select
Range("D3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recettes").Select
Range("G10").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=
_
xlNone, SkipBlanks:úlse, Transpose:úlse
Sheets("Base Données").Select
Application.CutCopyMode = False
End Sub

-- andré





--
andré


Avatar
Daniel
Il n'y a que le premier bandeau à remplir. Tu cliques ensuite sur le bouton
Créer le lien cjoint et tu attends l'écran suivant qui te dit que "le lien a
été créé". Tu copies l'adresse générée et tu la colles dans ton post.
Daniel
"andre" a écrit dans le message de news:

bonjour daniel
je n'ai jamais fait fait ce genre de procedure
Ok pour la piece jointe 1er bandeau
le 2eme bandeau quel URL?
le 3 eme ok mon Email
tu peux me renseigner
merci a++



Daniel a émis l'idée suivante :
Bonjour.
Peux-tu mettre ton classeur (en effaçant les noms) sur wwww.cjoint.com ?
Les modifications dépendent de l'orthographe exacte, majuscules comprises
des valeurs possibles de A1.
Cordialement.
Daniel
"andre" a écrit dans le message de news:





--
andré






Avatar
andre
excuse daniel
un contre temps
et des petites erreurs

http://cjoint.com/?mwsiGrhSKc

Daniel a présenté l'énoncé suivant :


Daniel a émis l'idée suivante :
Bonjour.
Peux-tu mettre ton classeur (en effaçant les noms) sur wwww.cjoint.com ?
Les modifications dépendent de l'orthographe exacte, majuscules comprises
des valeurs possibles de A1.
Cordialement.
Daniel
"andre" a écrit dans le message de news:





-- andré





--
andré




Avatar
Daniel
Tu as deux macros "Voyage1", une dans Module1, l'autre dans Module2.
Laquelle faut-il modifier ?
Pour le mois de février, est-ce que l'on doit prendre le mois de la date du
libellé du voyage ?
par exemple :
PETIT PALAIS 26/01/2006 = janvier ?
DANSE - LEGENDE DU MONDE DREUX 23/02/2006 = février ?
Daniel
"andre" a écrit dans le message de news:


excuse daniel
un contre temps
et des petites erreurs

http://cjoint.com/?mwsiGrhSKc

Daniel a présenté l'énoncé suivant :


Daniel a émis l'idée suivante :
Bonjour.
Peux-tu mettre ton classeur (en effaçant les noms) sur wwww.cjoint.com
?
Les modifications dépendent de l'orthographe exacte, majuscules
comprises des valeurs possibles de A1.
Cordialement.
Daniel
"andre" a écrit dans le message de news:





-- andré





--
andré








Avatar
andre
Daniel a exprimé avec précision :
Tu as deux macros "Voyage1", une dans Module1, l'autre dans Module2. Laquelle
faut-il modifier ?
Pour le mois de février, est-ce que l'on doit prendre le mois de la date du
libellé du voyage ?
par exemple :
PETIT PALAIS 26/01/2006 = janvier ?
DANSE - LEGENDE DU MONDE DREUX 23/02/2006 = février ?
Daniel
"andre" a écrit dans le message de news:


excuse daniel
un contre temps
et des petites erreurs

http://cjoint.com/?mwsiGrhSKc

Daniel a présenté l'énoncé suivant :


Daniel a émis l'idée suivante :
Bonjour.
Peux-tu mettre ton classeur (en effaçant les noms) sur wwww.cjoint.com ?
Les modifications dépendent de l'orthographe exacte, majuscules
comprises des valeurs possibles de A1.
Cordialement.
Daniel
"andre" a écrit dans le message de news:





-- andré





-- andré





salut daniel
tu prends celle du module 2
on peut la supp celle du mod 1
oui tout a fait pour les dates
merci

--
andré






Avatar
andre
autant pour moi
la methode calendar fonctionne

--
andré
Avatar
Daniel
autant pour moi
la methode calendar fonctionne


Que veux-tu dire ? Prendre le nombre de la cellule A1 comme numéro de mois ?
Daniel

Avatar
Daniel
Je n'ai pas pu tester car je ne sais pas sur quelle feuille s'applique le
filtre automatique...
Néanmoins, je pense que l'on n'est pas très loin du compte avec la macro
suivante :

Sub voyage1()
'
' voyage1 Macro
' Macro enregistrée le 21/12/2006 par Vermeil service
'

'
Dim Mois As Integer
Mois = Sheets("Base Données").Range("A1")
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="<>"
Range("G30").Select
Range("B4:F403").Select
Selection.Copy
Sheets("Inscription").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Sheets("Inscription").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=
_
xlNone, SkipBlanks:úlse, Transpose:úlse
Sheets("Base Données").Select
Application.CutCopyMode = False
Sheets("Sorties").Select

Range("A8:B8").Offset(Mois, 0).Copy
Sheets("Recettes").Select
Range("A10:B10").Offset((Mois - 1) * 16, 0).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats
Sheets("Base Données").Select
Application.CutCopyMode = False
Range("D3").Copy
Sheets("Recettes").Select
Range("G10").Offset((Mois - 1) * 16, 0).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
Sheets("Base Données").Select
Application.CutCopyMode = False
End Sub

J'attendrai tes commentaires.
Bonne soirée.
Daniel
"andre" a écrit dans le message de news:

autant pour moi
la methode calendar fonctionne

--
andré




1 2