Bonjour Merci pour ce tutoriel qui me permet de mieux utiliser excel grâce à vos vidéos courtes et centrer sur un objectif Cela permet de les utiliser dans un fichier avec vos autres cours Merci pour cela
Bonjour et merci beaucoup pour tes formations très pratiques et très instructives. Pour ma part je désire fusionner toutes les cellules d'une même ligne qui sont identiques. J'ai essayé en inversant ton offset(1,0) que j'ai transformé en offset(0,1) mais visiblement cela n'est pas suffisant car cela ne fonctionne pas. Est-ce que tu as un conseil? Merci d'avance pour ton aide précieuse et pour ton temps.
très bonne prestation- bravo - VBA accessible. Toutefois je déconseille d'inclure la colonne montant qui fusionnée enlèverait un montant nécessaire, non ?
Bonjour, Merci beaucoup pour ces explications. J'ai un message d'erreur et le Débogage m'indique que c'est au niveau de la ligne suivante: p.Merge Qu'est-ce je dois faire svp?
bonjour, j’espère que tu es encore dispo :) j'ai un tableau dont je cherche a fusionner les cellules identiques elle peuvent se trouver sur une seule colonne comme je peux les avoir sur 2 colonnes. par exemple j'ai N11:O19 avec la meme valeur après j'ai P11:P19 avec les même valeurs puis de nouveau Q11:R19 d'identique, ect... sachant que mes double colonne et simple colonne sont aléatoire et se répète sur 40 ou 50 colonnes tout dépend de mon tableau... j'arrive a fusionner les cellules par colonne mais faire fusionner 2 colonnes en meme temps je bloque. si tu as une méthode, je suis preneur
j'ai pondu ceci suivant ton exemple 🤔 Dim c As Range For Each c in Selection If c.MergeCells = False And c = c.Offset(1, 0) And c = c.Offset(0, 1) Then Dim p As Range Set p = c Dim c2 As Range Dim c3 As Range Dim c4 As Range Set c2 = c.Offset(1, 0) Set c3 = c.Offset(0, 1) Set c4 = c.Offset(1, 1) Do While c3 = c If Intersect(p, Selection) Is Nothing Then Do While c2 = c If Intersect(p, Selection) Is Nothing Then Exit Do End If Set p = Union(p, c2) Set c2 = c2.Offset(1, 0) Loop Application.DisplayAlerts = False p.merge Application.DisplayAlerts Exit Do End If Set p = Union(p, c3) Set c2 = c2.Offset(1, 0) Set c4 = c4.Offset(1, 1) Loop Application.DisplayAlerts = False p.merge Application.DisplayAlerts End If Then
Bonjour, merci pour question. Voici le lien vers la formation sur Excel pour les débutants : www.excelformation.fr/formation-bases-excel-grands-debutants-no.html
Merci pour ce tutoriel très pratique pour simplifier l'affichage du tableau, et aussi pour tes explications précises du code.
Merciiiiiiiiii
Bonjour
Merci pour ce tutoriel qui me permet de mieux utiliser excel grâce à vos vidéos courtes et centrer sur un objectif
Cela permet de les utiliser dans un fichier avec vos autres cours
Merci pour cela
Merci à vous :)
Merci monsieur le formateur
Avec plaisir :)
Bonjour et merci beaucoup pour tes formations très pratiques et très instructives.
Pour ma part je désire fusionner toutes les cellules d'une même ligne qui sont identiques. J'ai essayé en inversant ton offset(1,0) que j'ai transformé en offset(0,1) mais visiblement cela n'est pas suffisant car cela ne fonctionne pas. Est-ce que tu as un conseil?
Merci d'avance pour ton aide précieuse et pour ton temps.
C'est bon j'ai trouvé mon erreur, cela fonctionne parfaitement maintenant. Merci pour ce tuto
très bonne prestation- bravo - VBA accessible. Toutefois je déconseille d'inclure la colonne montant qui fusionnée enlèverait un montant nécessaire, non ?
Bonjour, Merci beaucoup pour ces explications.
J'ai un message d'erreur et le Débogage m'indique que c'est au niveau de la ligne suivante:
p.Merge
Qu'est-ce je dois faire svp?
bonjour,
j’espère que tu es encore dispo :)
j'ai un tableau dont je cherche a fusionner les cellules identiques elle peuvent se trouver sur une seule colonne comme je peux les avoir sur 2 colonnes. par exemple j'ai N11:O19 avec la meme valeur après j'ai P11:P19 avec les même valeurs puis de nouveau Q11:R19 d'identique, ect... sachant que mes double colonne et simple colonne sont aléatoire et se répète sur 40 ou 50 colonnes tout dépend de mon tableau... j'arrive a fusionner les cellules par colonne mais faire fusionner 2 colonnes en meme temps je bloque.
si tu as une méthode, je suis preneur
j'ai pondu ceci suivant ton exemple 🤔
Dim c As Range
For Each c in Selection
If c.MergeCells = False And c = c.Offset(1, 0) And c = c.Offset(0, 1) Then
Dim p As Range
Set p = c
Dim c2 As Range
Dim c3 As Range
Dim c4 As Range
Set c2 = c.Offset(1, 0)
Set c3 = c.Offset(0, 1)
Set c4 = c.Offset(1, 1)
Do While c3 = c
If Intersect(p, Selection) Is Nothing Then
Do While c2 = c
If Intersect(p, Selection) Is Nothing Then
Exit Do
End If
Set p = Union(p, c2)
Set c2 = c2.Offset(1, 0)
Loop
Application.DisplayAlerts = False
p.merge
Application.DisplayAlerts
Exit Do
End If
Set p = Union(p, c3)
Set c2 = c2.Offset(1, 0)
Set c4 = c4.Offset(1, 1)
Loop
Application.DisplayAlerts = False
p.merge
Application.DisplayAlerts
End If
Then
A la place de then a la fin c'est Next
Bsr comment débutée une formation
Bonjour, merci pour question. Voici le lien vers la formation sur Excel pour les débutants : www.excelformation.fr/formation-bases-excel-grands-debutants-no.html