Fusionner 4 cellules d'après un mot

Signaler
Messages postés
18
Date d'inscription
vendredi 12 mai 2017
Statut
Membre
Dernière intervention
16 septembre 2020
-
Messages postés
12228
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 septembre 2020
-
Bonjour,

Quand il y a le mot "Total" dans la colonne C, je souhaiterai que cela soit fusionné sur les colonnes C/D/E/F.
Par exemple, la macro trouve "Total TECHNIQUE" en C7, il faudrait que "Total TECHNIQUE" se retrouve fusionné en C7/D7/E7/F7.
J'ai fait cet essai mais sans succès. Pouvez-vous m'aider svp ?
Merci,

Sub FusionTotal4colonnes()
For Each cell In Range("C7", Range("C200").End(xlUp))
If Range("C7").Value Like "*Total*" And cell.Offset(, 3) = "" Then
Range("C7" & col & "C7" + 3).Select
Range(Selection).Merge
End If
Next cell
End Sub

2 réponses

Messages postés
12228
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 septembre 2020
688
bonjour,
"sans succès": qu'observes-tu?
merci d'utiliser les balises de code, et de préciser "basic" pour du VBA: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
suggestion:
Sub FusionTotal4colonnes()
Dim Cell As Range
For Each Cell In Range("C7", Range("C200").End(xlUp))
    If InStr(Cell.Value, "Total") > 0 And Cell.Offset(, 3) = "" Then
        Cell.Resize(1, 4).Merge
    End If
Next Cell
End Sub
Bonjour,
Merci yg_be pour ton retour.
C'est top de top ! ca fonctionne impec !
Ok pour les balises et la précision "basic" pour des questions ultérieures.
Big merci ;-)
Messages postés
12228
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 septembre 2020
688
parfait, merci de marquer la discussion comme résolue.