http://cjoint.com/?fotLZRXF26
ci-joint un exemple de mon dossier :
http://cjoint.com/?fotiSOcJZx
feuille 1 : dans la cellule B1 j'inscrit une date - par exemple 1856
je souhaiterai que toutes les lignes de la feuille 2 se rapportant à
cette date
soient recopiées au départ de la cellule B2
Feuille 2 : c'est la base de données des tarifs postaux en sachant que
pour l'instant la plage réelle est B2:F393
merci par avance de votre aide
stéphane dellaux
http://cjoint.com/?fotLZRXF26
ci-joint un exemple de mon dossier :
http://cjoint.com/?fotiSOcJZx
feuille 1 : dans la cellule B1 j'inscrit une date - par exemple 1856
je souhaiterai que toutes les lignes de la feuille 2 se rapportant à
cette date
soient recopiées au départ de la cellule B2
Feuille 2 : c'est la base de données des tarifs postaux en sachant que
pour l'instant la plage réelle est B2:F393
merci par avance de votre aide
stéphane dellaux
http://cjoint.com/?fotLZRXF26
ci-joint un exemple de mon dossier :
http://cjoint.com/?fotiSOcJZx
feuille 1 : dans la cellule B1 j'inscrit une date - par exemple 1856
je souhaiterai que toutes les lignes de la feuille 2 se rapportant à
cette date
soient recopiées au départ de la cellule B2
Feuille 2 : c'est la base de données des tarifs postaux en sachant que
pour l'instant la plage réelle est B2:F393
merci par avance de votre aide
stéphane dellaux
Bonsoir, regarde le fichier joint, et reviens si tu as un souci.http://cjoint.com/?fotLZRXF26
Bonne lecture
Sub Macro1()
With Range("B3:F" & [b65000].End(xlUp).Row)
.ClearContents
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Interior.ColorIndex = xlNone
End With
If [a2] <> "" Then
Range("base").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range("B2:F2"), Unique:úlse
Range("B2").Select
End If
End Sub
Bonsoir, regarde le fichier joint, et reviens si tu as un souci.
http://cjoint.com/?fotLZRXF26
Bonne lecture
Sub Macro1()
With Range("B3:F" & [b65000].End(xlUp).Row)
.ClearContents
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Interior.ColorIndex = xlNone
End With
If [a2] <> "" Then
Range("base").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range("B2:F2"), Unique:=False
Range("B2").Select
End If
End Sub
Bonsoir, regarde le fichier joint, et reviens si tu as un souci.http://cjoint.com/?fotLZRXF26
Bonne lecture
Sub Macro1()
With Range("B3:F" & [b65000].End(xlUp).Row)
.ClearContents
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Interior.ColorIndex = xlNone
End With
If [a2] <> "" Then
Range("base").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range("B2:F2"), Unique:úlse
Range("B2").Select
End If
End Sub
merci de la reponse si rapide, effectivement dans le fichier joint
tout marche a merveille, j'ai meme recopié l'ensemble du fichier et je
peux rechercher la date que je désire ;
MAIS PROBLEME !!!! et oui avec moi tjrs probleme
j'ai recopié la macro ci-dessous dans la feuille de mon vrai
classeur...
et rien ne se passe....snifffff
je pense aussi que cela vient du bouton créer dans le fichier exemple
qui est certainement associé à la macro
mais alors là je suis nul comment dois-je procéder ?? j'ai essayé le
traditionnel copié-collé mais cela doit etre trop simple (rire)
désolé j'ai besoin d'une aide supplémentaire
merci encore de ta patience par avance
cordialement
stéphane dellaux
On 14 mai, 19:38, cousinhub wrote:Bonsoir, regarde le fichier joint, et reviens si tu as un souci.http://cjoint.com/?fotLZRXF26
Bonne lecture
Sub Macro1()
With Range("B3:F" & [b65000].End(xlUp).Row)
.ClearContents
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Interior.ColorIndex = xlNone
End With
If [a2] <> "" Then
Range("base").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range("B2:F2"), Unique:úlse
Range("B2").Select
End If
End Sub
merci de la reponse si rapide, effectivement dans le fichier joint
tout marche a merveille, j'ai meme recopié l'ensemble du fichier et je
peux rechercher la date que je désire ;
MAIS PROBLEME !!!! et oui avec moi tjrs probleme
j'ai recopié la macro ci-dessous dans la feuille de mon vrai
classeur...
et rien ne se passe....snifffff
je pense aussi que cela vient du bouton créer dans le fichier exemple
qui est certainement associé à la macro
mais alors là je suis nul comment dois-je procéder ?? j'ai essayé le
traditionnel copié-collé mais cela doit etre trop simple (rire)
désolé j'ai besoin d'une aide supplémentaire
merci encore de ta patience par avance
cordialement
stéphane dellaux
On 14 mai, 19:38, cousinhub <pmcsnhb_nos...@aol.com> wrote:
Bonsoir, regarde le fichier joint, et reviens si tu as un souci.
http://cjoint.com/?fotLZRXF26
Bonne lecture
Sub Macro1()
With Range("B3:F" & [b65000].End(xlUp).Row)
.ClearContents
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Interior.ColorIndex = xlNone
End With
If [a2] <> "" Then
Range("base").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range("B2:F2"), Unique:úlse
Range("B2").Select
End If
End Sub
merci de la reponse si rapide, effectivement dans le fichier joint
tout marche a merveille, j'ai meme recopié l'ensemble du fichier et je
peux rechercher la date que je désire ;
MAIS PROBLEME !!!! et oui avec moi tjrs probleme
j'ai recopié la macro ci-dessous dans la feuille de mon vrai
classeur...
et rien ne se passe....snifffff
je pense aussi que cela vient du bouton créer dans le fichier exemple
qui est certainement associé à la macro
mais alors là je suis nul comment dois-je procéder ?? j'ai essayé le
traditionnel copié-collé mais cela doit etre trop simple (rire)
désolé j'ai besoin d'une aide supplémentaire
merci encore de ta patience par avance
cordialement
stéphane dellaux
On 14 mai, 19:38, cousinhub wrote:Bonsoir, regarde le fichier joint, et reviens si tu as un souci.http://cjoint.com/?fotLZRXF26
Bonne lecture
Sub Macro1()
With Range("B3:F" & [b65000].End(xlUp).Row)
.ClearContents
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Interior.ColorIndex = xlNone
End With
If [a2] <> "" Then
Range("base").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range("B2:F2"), Unique:úlse
Range("B2").Select
End If
End Sub
http://www.excelabo.net/
http://xlwiki.free.fr/wiki
http://boisgontierj.free.fr/
http://frederic.sigonneau.free.fr/
effectivement comme pour l'avoir dit tout fonctionne a merveille dans
l'exemple.
mais je n'arrive pas a le faire fonctionner dans mon classeur réel.
Pourriez vous me donner l'ensemble de la procédure que je dois
appliquer étape par étape ?
notemment cet installation de filtre
comment creer ce bouton qui déclanche la recherche et la copie de la
plage année recherchée.
comment lui affecter la macro etc..etc..
désolé de mon ignorance
merci d'avance
stéphane
http://www.excelabo.net/
http://xlwiki.free.fr/wiki
http://boisgontierj.free.fr/
http://frederic.sigonneau.free.fr/
effectivement comme pour l'avoir dit tout fonctionne a merveille dans
l'exemple.
mais je n'arrive pas a le faire fonctionner dans mon classeur réel.
Pourriez vous me donner l'ensemble de la procédure que je dois
appliquer étape par étape ?
notemment cet installation de filtre
comment creer ce bouton qui déclanche la recherche et la copie de la
plage année recherchée.
comment lui affecter la macro etc..etc..
désolé de mon ignorance
merci d'avance
stéphane
http://www.excelabo.net/
http://xlwiki.free.fr/wiki
http://boisgontierj.free.fr/
http://frederic.sigonneau.free.fr/
effectivement comme pour l'avoir dit tout fonctionne a merveille dans
l'exemple.
mais je n'arrive pas a le faire fonctionner dans mon classeur réel.
Pourriez vous me donner l'ensemble de la procédure que je dois
appliquer étape par étape ?
notemment cet installation de filtre
comment creer ce bouton qui déclanche la recherche et la copie de la
plage année recherchée.
comment lui affecter la macro etc..etc..
désolé de mon ignorance
merci d'avance
stéphane
Tout d'abord, comme dit dans mon post précédent, il faut défusionn é les
cellules D1 et E1 de la feuille 2.
Ensuite, dans la feuille 1, en A1 tu écris exactement ce qu'il y a dans
la cellule B1 de la feuille 2 (en l'occurrence : Année)
Tu inscriras ton année désirée dans la cellule A2 (Feuille 1)
Pour le code, tu fais Alt + F11, l'éditeur VBA s'ouvre.
Tout d'abord, comme dit dans mon post précédent, il faut défusionn é les
cellules D1 et E1 de la feuille 2.
Ensuite, dans la feuille 1, en A1 tu écris exactement ce qu'il y a dans
la cellule B1 de la feuille 2 (en l'occurrence : Année)
Tu inscriras ton année désirée dans la cellule A2 (Feuille 1)
Pour le code, tu fais Alt + F11, l'éditeur VBA s'ouvre.
Tout d'abord, comme dit dans mon post précédent, il faut défusionn é les
cellules D1 et E1 de la feuille 2.
Ensuite, dans la feuille 1, en A1 tu écris exactement ce qu'il y a dans
la cellule B1 de la feuille 2 (en l'occurrence : Année)
Tu inscriras ton année désirée dans la cellule A2 (Feuille 1)
Pour le code, tu fais Alt + F11, l'éditeur VBA s'ouvre.
Tout d'abord, comme dit dans mon post précédent, il faut défusionné les
cellules D1 et E1 de la feuille 2.
Ensuite, dans la feuille 1, en A1 tu écris exactement ce qu'il y a dans
la cellule B1 de la feuille 2 (en l'occurrence : Année)
Tu inscriras ton année désirée dans la cellule A2 (Feuille 1)
Tous les points ci-dessus c'est ok j'avais d'ailleurs déjà supprimer
le fusionnement, et j'ai repris point par point donc pour cela OKPour le code, tu fais Alt + F11, l'éditeur VBA s'ouvre.
Alors là grand probleme j'ai beau taper et retaper alt+f11 rien ne se
produit ? ?????????
j'ai vraiment pas de pot moi.....RIRES....... je dois etre maffré
un autre moyen de faire cette opération ?????
Pour la suite nous verrons après....
tu sais je suis désolé d'etre aussi nul
mais encore merci de l'aide
stéphane
PS : et si je vous envoyais par mail mon classeur original peut etre
pourriez vous directement faire les copier coller ????
Tout d'abord, comme dit dans mon post précédent, il faut défusionné les
cellules D1 et E1 de la feuille 2.
Ensuite, dans la feuille 1, en A1 tu écris exactement ce qu'il y a dans
la cellule B1 de la feuille 2 (en l'occurrence : Année)
Tu inscriras ton année désirée dans la cellule A2 (Feuille 1)
Tous les points ci-dessus c'est ok j'avais d'ailleurs déjà supprimer
le fusionnement, et j'ai repris point par point donc pour cela OK
Pour le code, tu fais Alt + F11, l'éditeur VBA s'ouvre.
Alors là grand probleme j'ai beau taper et retaper alt+f11 rien ne se
produit ? ?????????
j'ai vraiment pas de pot moi.....RIRES....... je dois etre maffré
un autre moyen de faire cette opération ?????
Pour la suite nous verrons après....
tu sais je suis désolé d'etre aussi nul
mais encore merci de l'aide
stéphane
PS : et si je vous envoyais par mail mon classeur original peut etre
pourriez vous directement faire les copier coller ????
Tout d'abord, comme dit dans mon post précédent, il faut défusionné les
cellules D1 et E1 de la feuille 2.
Ensuite, dans la feuille 1, en A1 tu écris exactement ce qu'il y a dans
la cellule B1 de la feuille 2 (en l'occurrence : Année)
Tu inscriras ton année désirée dans la cellule A2 (Feuille 1)
Tous les points ci-dessus c'est ok j'avais d'ailleurs déjà supprimer
le fusionnement, et j'ai repris point par point donc pour cela OKPour le code, tu fais Alt + F11, l'éditeur VBA s'ouvre.
Alors là grand probleme j'ai beau taper et retaper alt+f11 rien ne se
produit ? ?????????
j'ai vraiment pas de pot moi.....RIRES....... je dois etre maffré
un autre moyen de faire cette opération ?????
Pour la suite nous verrons après....
tu sais je suis désolé d'etre aussi nul
mais encore merci de l'aide
stéphane
PS : et si je vous envoyais par mail mon classeur original peut etre
pourriez vous directement faire les copier coller ????
Re-, envoyer le fichier en BAL (Boîte A Lettres) perso, c'est une
solution, le faire soi-même c'est mieux, non?;-)
Alt + F11, c'est un raccourci clavier (appui sur la touche Alt et en
même temps sur la touche de fonction F11).
Autre moyen, clic droit sur l'onglet de ta feuille : Visualiser le code
Et tu continues...
Re-, envoyer le fichier en BAL (Boîte A Lettres) perso, c'est une
solution, le faire soi-même c'est mieux, non?;-)
Alt + F11, c'est un raccourci clavier (appui sur la touche Alt et en
même temps sur la touche de fonction F11).
Autre moyen, clic droit sur l'onglet de ta feuille : Visualiser le code
Et tu continues...
Re-, envoyer le fichier en BAL (Boîte A Lettres) perso, c'est une
solution, le faire soi-même c'est mieux, non?;-)
Alt + F11, c'est un raccourci clavier (appui sur la touche Alt et en
même temps sur la touche de fonction F11).
Autre moyen, clic droit sur l'onglet de ta feuille : Visualiser le code
Et tu continues...
Rebonjour,
alors c'est ok j'ai bien défusionné cellules dans la base de données
des dates
dans l'autre feuille j'ai recopié in-extenso toute les cellules de
l'exemple et positionnées au meme endroit.
j'ai bien copier dans le VBA la macro, pour la partie surlignée en
rouge j'avais trouvé par moi-même (deviendrai-je un pro
d'excel ?.......rires) en enlevant les espaces ....il m'arrive d'avoir
des intuitions !!!!! re rires.
bon maintenant par contre je coince avec le bouton
je sais le créer il est positionner et il est inscrit "command but"
mais comme je pense qu'il manque une macro affectée a ce bouton
evidemment rien ne se passe si j'inscrit une date quelconque et je
clique sur le bouton...
que faut il faire
pour du pas a pas c'est du pas a pas et vous remercie de votre
patiente
cordialement
stéphane dellaux
On 15 mai, 20:25, cousinhub wrote:Re-, envoyer le fichier en BAL (Boîte A Lettres) perso, c'est une
solution, le faire soi-même c'est mieux, non?;-)
Alt + F11, c'est un raccourci clavier (appui sur la touche Alt et en
même temps sur la touche de fonction F11).
Autre moyen, clic droit sur l'onglet de ta feuille : Visualiser le code
Et tu continues...
Rebonjour,
alors c'est ok j'ai bien défusionné cellules dans la base de données
des dates
dans l'autre feuille j'ai recopié in-extenso toute les cellules de
l'exemple et positionnées au meme endroit.
j'ai bien copier dans le VBA la macro, pour la partie surlignée en
rouge j'avais trouvé par moi-même (deviendrai-je un pro
d'excel ?.......rires) en enlevant les espaces ....il m'arrive d'avoir
des intuitions !!!!! re rires.
bon maintenant par contre je coince avec le bouton
je sais le créer il est positionner et il est inscrit "command but"
mais comme je pense qu'il manque une macro affectée a ce bouton
evidemment rien ne se passe si j'inscrit une date quelconque et je
clique sur le bouton...
que faut il faire
pour du pas a pas c'est du pas a pas et vous remercie de votre
patiente
cordialement
stéphane dellaux
On 15 mai, 20:25, cousinhub <pmcsnhb_nos...@aol.com> wrote:
Re-, envoyer le fichier en BAL (Boîte A Lettres) perso, c'est une
solution, le faire soi-même c'est mieux, non?;-)
Alt + F11, c'est un raccourci clavier (appui sur la touche Alt et en
même temps sur la touche de fonction F11).
Autre moyen, clic droit sur l'onglet de ta feuille : Visualiser le code
Et tu continues...
Rebonjour,
alors c'est ok j'ai bien défusionné cellules dans la base de données
des dates
dans l'autre feuille j'ai recopié in-extenso toute les cellules de
l'exemple et positionnées au meme endroit.
j'ai bien copier dans le VBA la macro, pour la partie surlignée en
rouge j'avais trouvé par moi-même (deviendrai-je un pro
d'excel ?.......rires) en enlevant les espaces ....il m'arrive d'avoir
des intuitions !!!!! re rires.
bon maintenant par contre je coince avec le bouton
je sais le créer il est positionner et il est inscrit "command but"
mais comme je pense qu'il manque une macro affectée a ce bouton
evidemment rien ne se passe si j'inscrit une date quelconque et je
clique sur le bouton...
que faut il faire
pour du pas a pas c'est du pas a pas et vous remercie de votre
patiente
cordialement
stéphane dellaux
On 15 mai, 20:25, cousinhub wrote:Re-, envoyer le fichier en BAL (Boîte A Lettres) perso, c'est une
solution, le faire soi-même c'est mieux, non?;-)
Alt + F11, c'est un raccourci clavier (appui sur la touche Alt et en
même temps sur la touche de fonction F11).
Autre moyen, clic droit sur l'onglet de ta feuille : Visualiser le code
Et tu continues...