Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fusionner des cellules en fonction d'un résultat

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion vanesa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

vanesa

XLDnaute Nouveau
Bonjour à tous

Est-il possible de fusionner automatiquement deux cellules en fonction d'un résultat ?! (soit grâce à une macro ou soit grâce à une fonction conditionnelle)

Exemple:
Si A1 = "accepter" alors B1, C1, D1, E1 et B2, C2, D2 et E2 se fusionnent en supprimant les informations contenus dans chacune de ces cellules (en effet, B1, C1, D1, E1 et B2, C2, D2 et E2 contiennent déjà des valeurs)

Merci et bonne journée
 
Dernière édition:
Trier par date Trier par votes
Re : Fusionner des cellules en fonction d'un résultat

Re,

A noter également que tu as plein de "exit sub", ce qui te fais sortir de la procédure, de ce fait tu ne passe sans doute pas dans tous les tests que tu voudrais voir exécutés.....
 
Vote positif 0 Vote négatif
Re : Fusionner des cellules en fonction d'un résultat

Re,

elle est où la macro qui te pose problème ?? si c'est dans le module1, c'est normal, une procédure événementielle (Worksheet_Change) est faite pour fonctionner uniquement dans son module....
 
Vote positif 0 Vote négatif
Re : Fusionner des cellules en fonction d'un résultat

Re,

pas de (tableau compte rendu 1-1).... ton fichier toujours en lecture seule, je ne peux travailler desus de toute façon... quand tu mets un fichier sur le forum, mets uniquement la mactro qui pose problème....
 
Vote positif 0 Vote négatif
Re : Fusionner des cellules en fonction d'un résultat

exemple de macro qui pose problème
sinon il faut enregistrer le fichier pour que la lecture seule se désactive

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$26" Then
With Range("D26").Validation
If Target.Value = "Commande" Then
.Delete
.Add Type:=xlValidateList, Formula1:="=$B$26:$B$45"
Else
.Delete
End If
End With
End If

If Target.Address <> "$B$28" Then Exit Sub
With Range("D28").Validation
If Target.Value = "Commande" Then
.Delete
.Add Type:=xlValidateList, Formula1:="=$B$28:$B$45"
Else
.Delete
End If
End With

End Sub
 
Vote positif 0 Vote négatif
Re : Fusionner des cellules en fonction d'un résultat

une macro qui ne fonctionne pas

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$26" Then
With Range("F27:J27")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$28" Then
With Range("F29:J29")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$30" Then
With Range("F31:J31")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$32" Then
With Range("F33:J33")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$34" Then
With Range("F35:J35")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$36" Then
With Range("F37:J37")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$38" Then
With Range("F39:J39")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$40" Then
With Range("F41:J41")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$42" Then
With Range("F43:J43")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address <> "$E$44" Then
With Range("F45:J45")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If
(je rajoute une macro différente et plus rien ne fonctionne)
If Target.Address <> "$B$32" Then
With Range("D32").Validation
If Target.Value = "Pas de commande" Then
.Delete
.Add Type:=xlValidateList, Formula1:="=$B$26:$B$45"
Else
.Delete
End If
End With
End If

If Target.Address <> "$B$34" Then Exit Sub
With Range("D34").Validation
If Target.Value = "Pas de commande" Then
.Delete
.Add Type:=xlValidateList, Formula1:="=$B$26:$B$45"
Else
.Delete
End If
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Fusionner des cellules en fonction d'un résultat

une macro qui fonctionne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$26" Then
With Range("F27:J27")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$28" Then
With Range("F29:J29")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$30" Then
With Range("F31:J31")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$32" Then
With Range("F33:J33")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$34" Then
With Range("F35:J35")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$36" Then
With Range("F37:J37")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$38" Then
With Range("F39:J39")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$40" Then
With Range("F41:J41")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address = "$E$42" Then
With Range("F43:J43")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With
End If

If Target.Address <> "$E$44" Then Exit Sub
With Range("F45:J45")
.Value = ""
If Target.Value = "Autre et observation :" Then
.Merge
Else
.UnMerge
End If
End With

End Sub
 
Vote positif 0 Vote négatif
Re : Fusionner des cellules en fonction d'un résultat

Re,

et c'est quoi ca ne fonctionne pas ?... message d'erreur ou pas le résultat attendu ?
essaye comme ceci, interrompera momentanément les procédures événementielles..
Code: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'ton code
Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif
Re : Fusionner des cellules en fonction d'un résultat

Re,

A noter, ce test :
Code: 
If Target.Address <> "$B$26" Then
tu demandes si la cellule est différente de B26 c'est..... remplace peut être par l'opérateur = au lieu de <>....
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
358
benjy555
B
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
379
Perceval973
P
S
  • Question Question
XL 2016 case à cocher
Réponses
10
Affichages
204
job75
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
331
chinel
P
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle
Réponses
2
Affichages
93
Payne
P
C
  • Question Question
Microsoft 365 Formule Excel qui additionne la tarification quotidienne
Réponses
2
Affichages
284
TooFatBoy
V
  • Résolu(e)
XL 2019 fonction RECHERCHEV
Réponses
6
Affichages
460
vincentast
V
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
367
crocrocro
C
W
  • Question Question
XL 2016 Mise en forme conditionnelle des cellules
Réponses
2
Affichages
322
mapomme
F
  • Résolu(e)
XL 2013 Resultat en fonction de 3 conditions cumultatives
Réponses
2
Affichages
429
franxy
F
H
  • Question Question
XL 2010 taux en fonction de valeurs mini de cellules
Réponses
1
Affichages
296
JHA
J
H
  • Résolu(e)
sub en function
Réponses
2
Affichages
447
Hunter296
H
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
327
Phil69970
F
  • Question Question
XL 2016 mise en forme conditionnelle si valeur non trouvée dans une liste prédéfinie
Réponses
5
Affichages
579
fantasio
F
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
411
zendb
Z
K
  • Résolu(e)
Microsoft 365 Incrémenter des valeurs présentées à l'horizontale dans une autre feuille en verticale
Réponses
4
Affichages
490
kikilabrax
K
O
  • Résolu(e)
XL 2013 Formule met à jour des informations en intégrant un décalage de cellule
Réponses
2
Affichages
248
onyirimba
O
C
  • Résolu(e)
XL 2021 Tableau avec calcul en fonction des heures
Réponses
10
Affichages
187
clausen
C
Y
  • Question Question
XL pour MAC FONCTION SI(ET/OU)
Réponses
1
Affichages
637
djidji59430
M
  • Question Question
Autres colorer des cellules en incluant 2 formules
Réponses
2
Affichages
223
mcl
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…