Fusionner 4 cellules d'après un mot

Fermé

Moto84 Messages postés 26 Date d'inscription vendredi 12 mai 2017 Statut Membre Dernière intervention 6 mars 2024 - 16 sept. 2020 à 11:25
yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 - 16 sept. 2020 à 14:05

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

A voir également:

Fusionner 4 cellules d'après un mot
Piratage facebook changer mot de passe - Guide
Excel fusionner deux cellules - Guide
Mettre un mot de passe sur un dossier - Guide
Fusionner pdf - Guide
Excel additionner des cellules - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
16 sept. 2020 à 13:17

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

Réponse 2 / 2

Moto84
16 sept. 2020 à 13:31

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

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
16 sept. 2020 à 14:05

parfait, merci de marquer la discussion comme résolue.

Discussions similaires

programme qui n'affiche pas le mot secret

Trouver le mot réellement écrit en lettres capitales PIX

Mot de passe administrateur Freebox : où le trouver ?

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters