Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel selection de cellules avec recherche de valeur

selection de cellules avec recherche de valeur

11 réponses
Avatar
Brucat
Bonjour,

J'ai une cellule qui contient le mot "Toto"
et plus bas une cellule qui contient le mot "titi"

Je désire à partir de toto selectionner jusqu'à titi puis fusionner.

Alors malgré mes essais je n'arrive pas à rechercher les 2 cellules sans lui
indiquer la référence de titi.

No pb pour la fusion.

Merci de votre réponse.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004
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
papou
Bonjour Brucat
(cela aura donc pour effet de ne conserver que la valeur "toto" dans ta
plage fusionnée)
Par exemple (à adpater) :
With Range("A1:A13")
Set Recherchetoto = .Find("toto")
If Not Recherchetoto Is Nothing Then
LigDepart = Recherchetoto.Row
Set Recherchetiti = .Find("titi")
If Not Recherchetiti Is Nothing Then
LigArrivee = Recherchetiti.Row
End If
Range(Cells(LigDepart, 1), Cells(LigArrivee,
1)).Offset.Merge
End If
End With

Cordialement
Pascal

"Brucat" a écrit dans le message de
news:bu14t3$e9e$
Bonjour,

J'ai une cellule qui contient le mot "Toto"
et plus bas une cellule qui contient le mot "titi"

Je désire à partir de toto selectionner jusqu'à titi puis fusionner.

Alors malgré mes essais je n'arrive pas à rechercher les 2 cellules sans
lui

indiquer la référence de titi.

No pb pour la fusion.

Merci de votre réponse.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004




Avatar
Brucat
Ok cela fonctionne merci beaucoup

"papou" <nspm> a écrit dans le message de
news:
Bonjour Brucat
(cela aura donc pour effet de ne conserver que la valeur "toto" dans ta
plage fusionnée)
Par exemple (à adpater) :
With Range("A1:A13")
Set Recherchetoto = .Find("toto")
If Not Recherchetoto Is Nothing Then
LigDepart = Recherchetoto.Row
Set Recherchetiti = .Find("titi")
If Not Recherchetiti Is Nothing Then
LigArrivee = Recherchetiti.Row
End If
Range(Cells(LigDepart, 1), Cells(LigArrivee,
1)).Offset.Merge
End If
End With

Cordialement
Pascal

"Brucat" a écrit dans le message de
news:bu14t3$e9e$
Bonjour,

J'ai une cellule qui contient le mot "Toto"
et plus bas une cellule qui contient le mot "titi"

Je désire à partir de toto selectionner jusqu'à titi puis fusionner.

Alors malgré mes essais je n'arrive pas à rechercher les 2 cellules sans
lui

indiquer la référence de titi.

No pb pour la fusion.

Merci de votre réponse.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004








---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004


Avatar
AV
Ou bien (plage A1:A10) :

Sub zz()
Application.DisplayAlerts = False
Range("A" & [match("toto",A1:A10,0)] & ":A" & [match("titi",A1:A10,0)]).Merge
End Sub

AV
Avatar
papou
Bonjour Alain
Je garde :-)
Cordialement
Pascal

"AV" a écrit dans le message de
news:%
Ou bien (plage A1:A10) :

Sub zz()
Application.DisplayAlerts = False
Range("A" & [match("toto",A1:A10,0)] & ":A" &
[match("titi",A1:A10,0)]).Merge

End Sub

AV




Avatar
Brucat
J'ai adapté ce code à mon besoion le voici :

Worksheets("feuil3").Range("D" & [match(1,D1:D26,0)] & ":D" &
[match(2,D1:D26,0)]).Merge

je travaille dans une colonne D et selection d1:d26
PB :
cela fusionne la ligne 3 et 5 de la colonne D alors que mes cellules sont
vides

"AV" a écrit dans le message de
news:%
Ou bien (plage A1:A10) :

Sub zz()
Application.DisplayAlerts = False
Range("A" & [match("toto",A1:A10,0)] & ":A" &
[match("titi",A1:A10,0)]).Merge

End Sub

AV





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004

Avatar
AV
Worksheets("feuil3").Range("D" & [match(1,D1:D26,0)] & ":D" &
[match(2,D1:D26,0)]).Merge
cela fusionne la ligne 3 et 5 de la colonne D alors que mes cellules sont
vides


Dans ta question initiale (et ma réponse) il est question de fusionner les
cellules allant de la cellule contenant "toto" à la cellule contenant "titi" qui
sont, édidemment, 2 valeurs censées exister
Dans ton exemple "adapté", tu fusionnes de la cellule contenant la valeur "1" à
la cellule contenant la valeur "2"
Est-ce vraiment le but recherché ?
Tu dis que "ça" fusionne de 3 à 5 alors que tes cellules sont vides --> étonnant
car, dans ce cas, tu devrais avoir une erreur d'exécution !
Quid de tout ça ? Quid de ta question ?

AV

Avatar
AV
Ave Papou,

,> Je garde :-)

Il y a pas l'emballage avec "papier-cadeau" ;-)

AV
Avatar
Brucat
Bonsoir, je réponds dans l'odre
1)J'ai réllement les valeurs 1 et 2 dans les cellules recherchées.
2)non aucun message d'alerte
3) cela fonctionne uniquement si "j'attache" ma macro à la feuil3 si
"j'attache" dans ThisWorkbook
Nada ou n'importe quoi.....................

Je dois encore me mélanger les pinceaux.
Pourtant je spécifie correctement sur quel feuille je veux travailler.

Brucat


"AV" a écrit dans le message de
news:
Worksheets("feuil3").Range("D" & [match(1,D1:D26,0)] & ":D" &
[match(2,D1:D26,0)]).Merge
cela fusionne la ligne 3 et 5 de la colonne D alors que mes cellules
sont


vides


Dans ta question initiale (et ma réponse) il est question de fusionner les
cellules allant de la cellule contenant "toto" à la cellule contenant
"titi" qui

sont, édidemment, 2 valeurs censées exister
Dans ton exemple "adapté", tu fusionnes de la cellule contenant la valeur
"1" à

la cellule contenant la valeur "2"
Est-ce vraiment le but recherché ?
Tu dis que "ça" fusionne de 3 à 5 alors que tes cellules sont vides -->
étonnant

car, dans ce cas, tu devrais avoir une erreur d'exécution !
Quid de tout ça ? Quid de ta question ?

AV





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004


Avatar
AV
3) cela fonctionne uniquement si "j'attache" ma macro à la feuil3 si
"j'attache" dans ThisWorkbook
Nada ou n'importe quoi.....................


Là il y a une certaine confusion :
La macro (mise dans un module ordinaire) est à exécuter alors que la feuille
(contenant la plage de recherche) est active !

AV

Avatar
Brucat
Bonjour la noyade.
Je ne dois pas utiliser les bons mots sur les bonnes choses.

Je part du principe que lorque j'indique
Worksheets("feuil1").range ("d1:d3")
c'est que je veux travailler sur la feuil 1 plage d1:d3.
Et cela quelque soit la feuille active

Je me trompe, si c'est le cas il y a de la révision dans l'air


"AV" a écrit dans le message de
news:
3) cela fonctionne uniquement si "j'attache" ma macro à la feuil3 si
"j'attache" dans ThisWorkbook
Nada ou n'importe quoi.....................


Là il y a une certaine confusion :
La macro (mise dans un module ordinaire) est à exécuter alors que la
feuille

(contenant la plage de recherche) est active !

AV





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.561 / Virus Database: 353 - Release Date: 13/01/2004


1 2