je voudrais savoir comment faire pour cr=C3=A9er une macro qui fusionnerai =
les cellules si celles ci sont identiques dans la m=C3=AAme colonne , sacha=
nt que les valeurs change =C3=A0 chaque nouveau fichier que je traite.=20
Je commence juste en vba=20
j'ai cr=C3=A9e une condition avec If ca marche pour la premi=C3=A8re ligne =
mais c'est tout il doit =C3=AAtre possible d'int=C3=A9grer =C3=A7a dans une=
boucle non ?=20
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
Jc
Le 17/04/2020, a supposé :
Bonjour je voudrais savoir comment faire pour créer une macro qui fusionnerai les cellules si celles ci sont identiques dans la même colonne , sachant que les valeurs change à chaque nouveau fichier que je traite. Je commence juste en vba j'ai crée une condition avec If ca marche pour la première ligne mais c'est tout il doit être possible d'intégrer ça dans une boucle non ?
Bonjour, J'immagine qu'il s'agit d'Excel La macro suivante devrait faire l'affaire A adapter en fontion du fichier PS déplace la question dans le forum d'excel, les réponses seront plus nombreuses En esprant que celà conviennet bon dimanche Public Sub Fusion() Dim i As Long, j As Long '""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" 'Hypothèse : les données sont dans la colonne A et débutent à la ligne 1 '""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" On Error GoTo Fusion_Error Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.DisplayAlerts = False For i = 1 To Cells(65535, 1).End(xlUp).Row j = i Do While Cells(i, 1) = Cells(j + 1, 1) j = j + 1 Loop Range(Cells(i, 1), Cells(j, 1)).Merge i = j Next i On Error GoTo 0 Application.DisplayAlerts = True Application.Calculation = xlAutomatic Application.ScreenUpdating = True Exit Sub Fusion_Error: Application.DisplayAlerts = True Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub -- ______________________________________________ Jc
Le 17/04/2020, jonathansol86@gmail.com a supposé :
Bonjour
je voudrais savoir comment faire pour créer une macro qui fusionnerai les
cellules si celles ci sont identiques dans la même colonne , sachant que les
valeurs change à chaque nouveau fichier que je traite.
Je commence juste en vba
j'ai crée une condition avec If ca marche pour la première ligne mais c'est
tout il doit être possible d'intégrer ça dans une boucle non ?
Bonjour,
J'immagine qu'il s'agit d'Excel
La macro suivante devrait faire l'affaire
A adapter en fontion du fichier
PS déplace la question dans le forum d'excel, les réponses seront plus
nombreuses
En esprant que celà conviennet bon dimanche
Public Sub Fusion()
Dim i As Long, j As Long
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'Hypothèse : les données sont dans la colonne A et débutent à la ligne
1
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Application.DisplayAlerts = False
For i = 1 To Cells(65535, 1).End(xlUp).Row
j = i
Do While Cells(i, 1) = Cells(j + 1, 1)
j = j + 1
Loop
Range(Cells(i, 1), Cells(j, 1)).Merge
i = j
Next i
Bonjour je voudrais savoir comment faire pour créer une macro qui fusionnerai les cellules si celles ci sont identiques dans la même colonne , sachant que les valeurs change à chaque nouveau fichier que je traite. Je commence juste en vba j'ai crée une condition avec If ca marche pour la première ligne mais c'est tout il doit être possible d'intégrer ça dans une boucle non ?
Bonjour, J'immagine qu'il s'agit d'Excel La macro suivante devrait faire l'affaire A adapter en fontion du fichier PS déplace la question dans le forum d'excel, les réponses seront plus nombreuses En esprant que celà conviennet bon dimanche Public Sub Fusion() Dim i As Long, j As Long '""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" 'Hypothèse : les données sont dans la colonne A et débutent à la ligne 1 '""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" On Error GoTo Fusion_Error Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.DisplayAlerts = False For i = 1 To Cells(65535, 1).End(xlUp).Row j = i Do While Cells(i, 1) = Cells(j + 1, 1) j = j + 1 Loop Range(Cells(i, 1), Cells(j, 1)).Merge i = j Next i On Error GoTo 0 Application.DisplayAlerts = True Application.Calculation = xlAutomatic Application.ScreenUpdating = True Exit Sub Fusion_Error: Application.DisplayAlerts = True Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub -- ______________________________________________ Jc
