Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel PB fusion de cellule

PB fusion de cellule

2 réponses
Avatar
bmortreux
Bonjour, je vous demande de l'aide pour l'execution d'une macro.

Je d=E9sire fusionner des cellules d'une ligne si leur valeur sont
indentiques.

Exemple:

45 | 45 | 45 | 45 | 45 | 46 | 46 | 46 | 46 | etc..........

je d=E9sire fusionner toutes les cellules contenant 45 puis celle
contenant 46, elles se trouvent toujours a la suite l'une de l'autre.

Je vous remercie d'avance.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Hervé
Salut,
Adapte la ligne et teste si cela convient :

Sub Fusion()
Dim Ligne As Range
Dim I As Integer

Set Ligne = [A1:H1]

Application.DisplayAlerts = False

On Error Resume Next
For I = Ligne.Count To 1 Step -1
If Ligne(I) <> "" Then
If Ligne(I + 1) = Ligne(I) Then
Range(Ligne(I + 1), Ligne(I)).MergeCells = True
End If
End If
Next I

Application.DisplayAlerts = True

Set Ligne = Nothing
End Sub

Hervé.

"bmortreux" a écrit dans le message de news:

Bonjour, je vous demande de l'aide pour l'execution d'une macro.

Je désire fusionner des cellules d'une ligne si leur valeur sont
indentiques.

Exemple:

45 | 45 | 45 | 45 | 45 | 46 | 46 | 46 | 46 | etc..........

je désire fusionner toutes les cellules contenant 45 puis celle
contenant 46, elles se trouvent toujours a la suite l'une de l'autre.

Je vous remercie d'avance.
Avatar
Excel...lent
bonsoir yangios

Si je comprends bien ton soucis, tu veux pouvoir saisir des données dans une
cellule sans que l'on puisse modifier le " formatage " de ta cellule.
Il faut pour cela protéger ta feuille en ayant auparavant " Dévérrouillé "
les cellules dans lesquelles tu veux saisir des données.

1 - Faire un Ctrl+A sur ta feuille pour sélectionner toutes les cellules.
2 - dans barre outils, choisir " Format/Cellule " puis onglet " Protection
".
3 - cocher " Verrouillée " puis validez avec "OK".

4 - Tu sélectionnes la cellule dont tu veux protéger le format et tu refait
étape 2 et 3 mais cette fois tu décoches " Vérrouillée ".

Toutes tes cellules (sauf celle où tu veux saisir des données ) sont donc
déclarées Vérrouillée pour EXCEL maintenant, pour que cette action soit
effective il faut impérativement protéger ta feuille comme suit :

Barres Outils, choisir " Outils/Protection/Protéger la feuille ". Laisser
les 3 options (Contenu, objets, scénarios ) cochées, saisir un mot de passe
ou non puis cliquer sur "OK".

A partir de maintenant tu ne peux plus changer le format de toutes tes
cellules, tu peux juste saisir des données dasn celle qui n'est pas "
Vérrouillée ".

Cordialement.

Excel...lent

Pensez à allez voir ces mines d'or :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm