Fusionner 4 cellules d'après un mot

Question

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

yg_be · Answer

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

Moto84 · Answer

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 ;-)

Fusionner 4 cellules d'après un mot

2 réponses

Discussions similaires

Newsletters