Fusionner des cellules en fonction d'un résultat

Créer une discussion
Répondre
  • 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,

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
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
437
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
471
Perceval973
P
S
  • Question Question
XL 2016 case à cocher
Réponses
10
Affichages
230
job75
job75
chinel
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
377
chinel
chinel
P
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle
Réponses
2
Affichages
230
Payne
P
C
  • Question Question
Microsoft 365 Formule Excel qui additionne la tarification quotidienne
Réponses
2
Affichages
297
TooFatBoy
TooFatBoy
V
  • Résolu(e)
XL 2019 fonction RECHERCHEV
Réponses
6
Affichages
477
vincentast
V
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
548
crocrocro
C
W
  • Question Question
XL 2016 Mise en forme conditionnelle des cellules
Réponses
2
Affichages
338
mapomme
mapomme
F
  • Résolu(e)
XL 2013 Resultat en fonction de 3 conditions cumultatives
Réponses
2
Affichages
433
franxy
F
H
  • Question Question
XL 2010 taux en fonction de valeurs mini de cellules
Réponses
1
Affichages
324
JHA
J
H
  • Résolu(e)
sub en function
Réponses
2
Affichages
456
Hunter296
H
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
403
Phil69970
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
589
fantasio
F
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
453
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
502
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
257
onyirimba
O
C
  • Résolu(e)
XL 2021 Tableau avec calcul en fonction des heures
Réponses
10
Affichages
197
clausen
C
Y
  • Question Question
XL pour MAC FONCTION SI(ET/OU)
Réponses
1
Affichages
643
djidji59430
djidji59430
M
  • Question Question
Autres colorer des cellules en incluant 2 formules
Réponses
2
Affichages
239
mcl
M
Retour