espérant trouver un bon Saint-Bernard avec dans son tonneau
Je n'aurais sans doute jamais le temps d'approcher de près le VBA donc je recherche une solution (ou une formule) clé en main. C'est peut-être trop demandé ou pas dans l'esprit de ce forum mais je n'ai rien d'autre à répondre.
Sub Fusion() '-------------------------------------------------------------- Application.DisplayAlerts = False Debug.Print " -------------- DEBUT DU PROGRAMME --------------" Dim celVal As String Dim celValNext As String Dim l As Integer Dim c As Integer Dim col As Integer 'On boucle sur la plage ' Boucle sur chaque ligne dans laquelle ' on boucle sur chaque colonne For l = 2 To 8 For c = 2 To 5 col = c celValNext = Cells(l, c + 1).Value 'On regarde si la cellule n'est pas déjà fusionnée: If Cells(l, col).MergeCells Then Debug.Print "** Cellule fusionnée :"; Cells(l, col).MergeArea.Address 'Si oui.. on prend le Numéro de colonne correspondant 'a la cellule fusionnée col = Cells(l, col).MergeArea.Column End If celVal = Cells(l, col).Value Debug.Print "L= " & l & " C=" & c & " >> celVal = " & celVal & " celValNext = " & celValNext 'on test si identique: If celVal = celValNext Then Debug.Print " Valeurs identiques... on fusionne !" Range(Cells(l, col), Cells(l, c + 1)).Select Selection.Merge End If Next c Next l Application.DisplayAlerts = True End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEncore un grand merci à toi !
PS : Je ne trouve pas le bouton pour "Marquer comme résolu"...