Fusionner 4 cellules d'après un mot
Moto84
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Fusionner 4 cellules d'après un mot
- Fusionner deux cellules excel - Guide
- Trousseau mot de passe iphone - Guide
- Comment fusionner des pdf sans logiciel - Guide
- Mot de passe - Guide
- Mot de passe administrateur - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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:
"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