Bjr,
Je cherche un moyen pour fusionner 3 cellules =E0 droite par=20
rapport =E0 la cellule active. Position que j'ignore bien=20
entendu et tout ceci en VBA.
Merci pour votre aide car j'y seche malgr=E9 la clim !!
bonjour mireille quelquechose comme cela peut-être :
ActiveCell.Offset(0, 1).Range("A1:C1").Merge
HTH jps
"Mireille" a écrit dans le message de news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
bonjour mireille
quelquechose comme cela peut-être :
ActiveCell.Offset(0, 1).Range("A1:C1").Merge
HTH
jps
"Mireille" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:4b1a01c473a9$d0c81fa0$a301280a@phx.gbl...
Bjr,
Je cherche un moyen pour fusionner 3 cellules à droite par
rapport à la cellule active. Position que j'ignore bien
entendu et tout ceci en VBA.
Merci pour votre aide car j'y seche malgré la clim !!
bonjour mireille quelquechose comme cela peut-être :
ActiveCell.Offset(0, 1).Range("A1:C1").Merge
HTH jps
"Mireille" a écrit dans le message de news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
papou
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell Range(Range("A1").Offset(0, 1), Range("A1").Offset(0, 1).Offset(0, 2)).Merge Cordialement Pascal
"Mireille" a écrit dans le message de news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
Bonjour Mireille
Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell
Range(Range("A1").Offset(0, 1), Range("A1").Offset(0, 1).Offset(0, 2)).Merge
Cordialement
Pascal
"Mireille" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:4b1a01c473a9$d0c81fa0$a301280a@phx.gbl...
Bjr,
Je cherche un moyen pour fusionner 3 cellules à droite par
rapport à la cellule active. Position que j'ignore bien
entendu et tout ceci en VBA.
Merci pour votre aide car j'y seche malgré la clim !!
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell Range(Range("A1").Offset(0, 1), Range("A1").Offset(0, 1).Offset(0, 2)).Merge Cordialement Pascal
"Mireille" a écrit dans le message de news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
AV
Si c'est 3 cellules à droite en incluant la cellule active : ActiveCell.Range("A1:C1").Merge
Si c'est 3 cellules à droite en n'incluant pas cellule active : ActiveCell.Range("B1:D1").Merge
AV
Si c'est 3 cellules à droite en incluant la cellule active :
ActiveCell.Range("A1:C1").Merge
Si c'est 3 cellules à droite en n'incluant pas cellule active :
ActiveCell.Range("B1:D1").Merge
Si c'est 3 cellules à droite en incluant la cellule active : ActiveCell.Range("A1:C1").Merge
Si c'est 3 cellules à droite en n'incluant pas cellule active : ActiveCell.Range("B1:D1").Merge
AV
papou
Donc plus précisement : Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell Range(Range("A1").Offset(0, 1), Range("A1").Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"Mireille" a écrit dans le message de
news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
Donc plus précisement :
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge
Cordialement
Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:urJcg26cEHA.3596@tk2msftngp13.phx.gbl...
Bonjour Mireille
Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell
Range(Range("A1").Offset(0, 1), Range("A1").Offset(0, 1).Offset(0,
2)).Merge
Cordialement
Pascal
"Mireille" <anonymous@discussions.microsoft.com> a écrit dans le message
de
news:4b1a01c473a9$d0c81fa0$a301280a@phx.gbl...
Bjr,
Je cherche un moyen pour fusionner 3 cellules à droite par
rapport à la cellule active. Position que j'ignore bien
entendu et tout ceci en VBA.
Merci pour votre aide car j'y seche malgré la clim !!
Donc plus précisement : Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell Range(Range("A1").Offset(0, 1), Range("A1").Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"Mireille" a écrit dans le message de
news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
dadda
Puisque tu ne connais par avance les cellules à fusionner,la macro de Pascal est impec. Si tu veux tu peux la mettre dans un événement de feuille et la rendre automatique chaque fois que tu en a besoin.Exemple dès que tu tape un lettre et que tu cliques dessus les trois cellules qui se trouvent à sa droite se fusionnent. Pour cela j'ai choisi "a". Tu pourra en choisir une autre. Aucune importance puisque une fois le travail fait, le code la supprime. Voici le code que je te propose, avec mes remerciements à Pascal :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "a" Then Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge Target.Value = "" End If End Sub
Amicalement Dadda
-----Message d'origine----- Donc plus précisement : Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell
news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par
rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
.
Puisque tu ne connais par avance les cellules à
fusionner,la macro de Pascal est impec. Si tu veux tu peux
la mettre dans un événement de feuille et la rendre
automatique chaque fois que tu en a besoin.Exemple dès que
tu tape un lettre et que tu cliques dessus les trois
cellules qui se trouvent à sa droite se fusionnent. Pour
cela j'ai choisi "a". Tu pourra en choisir une autre.
Aucune importance puisque une fois le travail fait, le
code la supprime.
Voici le code que je te propose, avec mes remerciements à
Pascal :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Value = "a" Then
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0,
1).Offset(0, 2)).Merge
Target.Value = ""
End If
End Sub
Amicalement
Dadda
-----Message d'origine-----
Donc plus précisement :
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0,
1).Offset(0, 2)).Merge
Cordialement
Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans
le message de
news:urJcg26cEHA.3596@tk2msftngp13.phx.gbl...
Bonjour Mireille
Exemple ici sur la cellule A1, à adapter à ton cas avec
Activecell
Puisque tu ne connais par avance les cellules à fusionner,la macro de Pascal est impec. Si tu veux tu peux la mettre dans un événement de feuille et la rendre automatique chaque fois que tu en a besoin.Exemple dès que tu tape un lettre et que tu cliques dessus les trois cellules qui se trouvent à sa droite se fusionnent. Pour cela j'ai choisi "a". Tu pourra en choisir une autre. Aucune importance puisque une fois le travail fait, le code la supprime. Voici le code que je te propose, avec mes remerciements à Pascal :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "a" Then Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge Target.Value = "" End If End Sub
Amicalement Dadda
-----Message d'origine----- Donc plus précisement : Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell
Et ma proposition ? Qu'est-ce qu'elle a qui ne te convient pas ? Les références relatives qui te perturbent ? ;-)
AV
jps
j'espère que mireille parviendra à faire marcher la chose : moi, j'y suis pas arrivé, dadda... jps
"dadda" a écrit dans le message de news:4dea01c473d6$e2bb0740$ Puisque tu ne connais par avance les cellules à fusionner,la macro de Pascal est impec. Si tu veux tu peux la mettre dans un événement de feuille et la rendre automatique chaque fois que tu en a besoin.Exemple dès que tu tape un lettre et que tu cliques dessus les trois cellules qui se trouvent à sa droite se fusionnent. Pour cela j'ai choisi "a". Tu pourra en choisir une autre. Aucune importance puisque une fois le travail fait, le code la supprime. Voici le code que je te propose, avec mes remerciements à Pascal :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "a" Then Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge Target.Value = "" End If End Sub
Amicalement Dadda
-----Message d'origine----- Donc plus précisement : Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell
news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par
rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
.
j'espère que mireille parviendra à faire marcher la chose : moi, j'y suis
pas arrivé, dadda...
jps
"dadda" <dadda@discussions.microsoft.com> a écrit dans le message de
news:4dea01c473d6$e2bb0740$a401280a@phx.gbl...
Puisque tu ne connais par avance les cellules à
fusionner,la macro de Pascal est impec. Si tu veux tu peux
la mettre dans un événement de feuille et la rendre
automatique chaque fois que tu en a besoin.Exemple dès que
tu tape un lettre et que tu cliques dessus les trois
cellules qui se trouvent à sa droite se fusionnent. Pour
cela j'ai choisi "a". Tu pourra en choisir une autre.
Aucune importance puisque une fois le travail fait, le
code la supprime.
Voici le code que je te propose, avec mes remerciements à
Pascal :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Value = "a" Then
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0,
1).Offset(0, 2)).Merge
Target.Value = ""
End If
End Sub
Amicalement
Dadda
-----Message d'origine-----
Donc plus précisement :
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0,
1).Offset(0, 2)).Merge
Cordialement
Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans
le message de
news:urJcg26cEHA.3596@tk2msftngp13.phx.gbl...
Bonjour Mireille
Exemple ici sur la cellule A1, à adapter à ton cas avec
Activecell
j'espère que mireille parviendra à faire marcher la chose : moi, j'y suis pas arrivé, dadda... jps
"dadda" a écrit dans le message de news:4dea01c473d6$e2bb0740$ Puisque tu ne connais par avance les cellules à fusionner,la macro de Pascal est impec. Si tu veux tu peux la mettre dans un événement de feuille et la rendre automatique chaque fois que tu en a besoin.Exemple dès que tu tape un lettre et que tu cliques dessus les trois cellules qui se trouvent à sa droite se fusionnent. Pour cela j'ai choisi "a". Tu pourra en choisir une autre. Aucune importance puisque une fois le travail fait, le code la supprime. Voici le code que je te propose, avec mes remerciements à Pascal :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "a" Then Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge Target.Value = "" End If End Sub
Amicalement Dadda
-----Message d'origine----- Donc plus précisement : Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell
de même qu'on ne doit pas parler après un ministre, je n'oserais pas ajouter "et la mienne?" après un MVP... jps
"AV" a écrit dans le message de news:
Et ma proposition ? Qu'est-ce qu'elle a qui ne te convient pas ? Les références relatives qui te perturbent ? ;-)
AV
dadda
Bonjour jps; J'ai recopié le code à partir du post; à part l'éternel problème des retours à la ligne,il marche. Ne pas oublier de le mettre dans un module de feuille (Copier le code puis Clique droit sur l'onglet (feuil1)-->clique sur visualiser le code puis coller. Arranger les retours à la ligne ;-)). Ma bécane est sous windows 98 et office 2000. Amicalement
-----Message d'origine----- j'espère que mireille parviendra à faire marcher la chose : moi, j'y suis
pas arrivé, dadda... jps
"dadda" a écrit dans le message de
news:4dea01c473d6$e2bb0740$ Puisque tu ne connais par avance les cellules à fusionner,la macro de Pascal est impec. Si tu veux tu peux la mettre dans un événement de feuille et la rendre automatique chaque fois que tu en a besoin.Exemple dès que tu tape un lettre et que tu cliques dessus les trois cellules qui se trouvent à sa droite se fusionnent. Pour cela j'ai choisi "a". Tu pourra en choisir une autre. Aucune importance puisque une fois le travail fait, le code la supprime. Voici le code que je te propose, avec mes remerciements à Pascal :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "a" Then Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge Target.Value = "" End If End Sub
Amicalement Dadda
-----Message d'origine----- Donc plus précisement : Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell
news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par
rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
.
.
Bonjour jps;
J'ai recopié le code à partir du post; à part l'éternel
problème des retours à la ligne,il marche. Ne pas oublier
de le mettre dans un module de feuille (Copier le code
puis Clique droit sur l'onglet (feuil1)-->clique sur
visualiser le code puis coller. Arranger les retours à la
ligne ;-)).
Ma bécane est sous windows 98 et office 2000.
Amicalement
-----Message d'origine-----
j'espère que mireille parviendra à faire marcher la
chose : moi, j'y suis
pas arrivé, dadda...
jps
"dadda" <dadda@discussions.microsoft.com> a écrit dans le
message de
news:4dea01c473d6$e2bb0740$a401280a@phx.gbl...
Puisque tu ne connais par avance les cellules à
fusionner,la macro de Pascal est impec. Si tu veux tu peux
la mettre dans un événement de feuille et la rendre
automatique chaque fois que tu en a besoin.Exemple dès que
tu tape un lettre et que tu cliques dessus les trois
cellules qui se trouvent à sa droite se fusionnent. Pour
cela j'ai choisi "a". Tu pourra en choisir une autre.
Aucune importance puisque une fois le travail fait, le
code la supprime.
Voici le code que je te propose, avec mes remerciements à
Pascal :
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Value = "a" Then
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0,
1).Offset(0, 2)).Merge
Target.Value = ""
End If
End Sub
Amicalement
Dadda
-----Message d'origine-----
Donc plus précisement :
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0,
1).Offset(0, 2)).Merge
Cordialement
Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans
le message de
news:urJcg26cEHA.3596@tk2msftngp13.phx.gbl...
Bonjour Mireille
Exemple ici sur la cellule A1, à adapter à ton cas avec
Activecell
Bonjour jps; J'ai recopié le code à partir du post; à part l'éternel problème des retours à la ligne,il marche. Ne pas oublier de le mettre dans un module de feuille (Copier le code puis Clique droit sur l'onglet (feuil1)-->clique sur visualiser le code puis coller. Arranger les retours à la ligne ;-)). Ma bécane est sous windows 98 et office 2000. Amicalement
-----Message d'origine----- j'espère que mireille parviendra à faire marcher la chose : moi, j'y suis
pas arrivé, dadda... jps
"dadda" a écrit dans le message de
news:4dea01c473d6$e2bb0740$ Puisque tu ne connais par avance les cellules à fusionner,la macro de Pascal est impec. Si tu veux tu peux la mettre dans un événement de feuille et la rendre automatique chaque fois que tu en a besoin.Exemple dès que tu tape un lettre et que tu cliques dessus les trois cellules qui se trouvent à sa droite se fusionnent. Pour cela j'ai choisi "a". Tu pourra en choisir une autre. Aucune importance puisque une fois le travail fait, le code la supprime. Voici le code que je te propose, avec mes remerciements à Pascal :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "a" Then Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge Target.Value = "" End If End Sub
Amicalement Dadda
-----Message d'origine----- Donc plus précisement : Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1).Offset(0, 2)).Merge
Cordialement Pascal
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Bonjour Mireille Exemple ici sur la cellule A1, à adapter à ton cas avec Activecell
news:4b1a01c473a9$d0c81fa0$ Bjr, Je cherche un moyen pour fusionner 3 cellules à droite par
rapport à la cellule active. Position que j'ignore bien entendu et tout ceci en VBA. Merci pour votre aide car j'y seche malgré la clim !!
.
.
AV
"et la mienne?" ActiveCell.Offset(0, 1).Range("A1:C1").Merge
Elle est tout à fait valide (celle de papou aussi bien sur) mais on peut faire des "économies" en se passant de l'Offset :et en ne servant que des références relatives (à la cellule active) : La tienne équivaut à : ActiveCell.Range("B1:D1").Merge
Pas capital tout ça mais bon... AV
"et la mienne?"
ActiveCell.Offset(0, 1).Range("A1:C1").Merge
Elle est tout à fait valide (celle de papou aussi bien sur) mais on peut faire
des "économies" en se passant de l'Offset :et en ne servant que des références
relatives (à la cellule active) :
La tienne équivaut à :
ActiveCell.Range("B1:D1").Merge
"et la mienne?" ActiveCell.Offset(0, 1).Range("A1:C1").Merge
Elle est tout à fait valide (celle de papou aussi bien sur) mais on peut faire des "économies" en se passant de l'Offset :et en ne servant que des références relatives (à la cellule active) : La tienne équivaut à : ActiveCell.Range("B1:D1").Merge
