Fusionner deux cellules en variables

Version imprimable

Bonjour à tous !

Je suis face à un problème que je n'arrive pas à solutionner, et mes recherches Internet sont infructueuses :(

Je souhaite fusionner deux cellules faisant parties d'une boucle, voici une partie de la macro en question :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
                            For j = 7 To 35
                                    If Hor.Cells(4, j) = Hdeb Then
                                    Hor.Cells(i, j) = Hor.Cells(i, 5) + 1
                                    'Dim alpha As Range
                                    Set alpha = Hor.Cells(i, j).Range
                                    'MsgBox alpha
                                    End If
                                    If Hor.Cells(4, j) = Hfin Then
                                    Hor.Cells(i, j) = Hor.Cells(i, 5) + 1
                                    'Dim beta As Range
                                    Set beta = Hor.Cells(i, j).Range
                                    End If
                                    Hor.Select
                                    Range(alpha & ":" & beta).Select
                                    Selection.Merge
                            Next

QUand je fais tourner ma macro il m'arrete sur la ligne Range(alpha & ":" & beta) et me dit qu'il y a une erreur.

QUelqu'un aurait il une idée sur :
- comment déclarer une cellule en variable
- fusionner deux cellules déclarées préalablement en variable

MErci à vous !

23/03/2016, 19h37
joe.levrai
Bonjour,

alpha et beta sont des objets représentant des cellules

quand ensuite tu utilises un Range() pour définir une plage de cellules, c'est la propriété "adresse" de ton objet Range qu'il faut utiliser

donc ceci :
Code:

1 2 3 Hor.Select Range(alpha & ":" & beta).Select Selection.Merge
devient :

Code:

Hor.Range(alpha.Address & ":" & beta.Address).Merge

il y a à vue d'œil une grosse optimisation possible dans ta procédure, mais sans la voir en entier ainsi que l'explication qui va bien, impossible de le certifier.

Si en l'état ça fonctionne et te convient, autant laisser ainsi

Salut joe.levrai !

Merci énormément pour ta réponse !
J'ai corrigé en prenant ta remarque en compte mais j'ai toujours une erreur dans le code.
Une grosse optimisation possible ? Tu peux préciser ? Je suis preneur !
Car oui ma macro fonctionne mais ne connaissant quasiment que IF et FOR j'avoue galérer un peu parfois ^^

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Ref.Select
For j = 87 To 124
service = Hor.Cells(j, 3)
 
    If service = "" Then
    GoTo finishcadre
    End If
 
    Ref.Range("A2:AP" & DernLigneUser).AutoFilter Field:=1, Criteria1:=service        'Range(A2:AP)
    Ref.Select
    DernLigneUserHor = Ref.Range("AK" & Rows.Count).End(xlUp).Row
 
    add = 0
    For i = 3 To DernLigneUserHor
 
        If Ref.Cells(i, 1) = Hor.Cells(j, 3) Then
            If Ref.Cells(i, 17) = "JOUR" Then
                If Ref.Cells(i, 41).Value = Hor.Cells(85, 3) Then
 
                For k = j To j + add
                    If Ref.Cells(i, 37) = Hor.Cells(k, 4) Then
                    Hor.Cells(k, 5) = Hor.Cells(k, 5) + 1
                    GoTo nexxtcadre
                    End If
                Next
                If add > 0 Then
                Hor.Rows(j + add).Insert
                Hor.Select
                Range(Cells(j, 3), Cells(j + add, 3)).Merge
                End If
                Hor.Cells(j + add, 4) = Ref.Cells(i, 37)
                add = add + 1
                End If
            End If
        End If
nexxtcadre:
    Next
finishcadre:
Next
 
                    DernLigneHorHor = Hor.Range("D" & Rows.Count).End(xlUp).Row
                    For i = 85 To DernLigneHorHor
                        If Hor.Cells(i, 4) <> "" Then
                            Href = Hor.Cells(i, 4).Value
                            Hdeb = Left(Href, Len(Href) - 8)
                            Hfin = Right(Href, Len(Href) - 8)
 
                            For j = 7 To 35
                                    If Hor.Cells(4, j) = Hdeb Then
                                    Hor.Cells(i, j) = Hor.Cells(i, 5) + 1
                                    'Dim alpha As Range
                                    Set alpha = Hor.Cells(i, j).Object
                                    'MsgBox alpha
                                    End If
                                    If Hor.Cells(4, j) = Hfin Then
                                    Hor.Cells(i, j) = Hor.Cells(i, 5) + 1
                                    'Dim beta As Range
                                    Set beta = Hor.Cells(i, j).Object
                                    End If
                                    Hor.Select
                                    Hor.Range(alpha.Address & ":" & beta.Address).Merge
                                    Selection.Merge
                            Next
                        End If
                    Next

oulà

il va falloir expliquer un peu ce que fais ta procédure (tout du moins ce que tu veux qu'elle fasse) en décrivant brièvement ce qu'il y a sur tes feuilles excel

on s'y perd un peu avec tes indices de boucles quand on ne sait pas ce que c'est censé faire
je vois déjà une suppression certaine de tes Goto (à éviter ! C'est du code spaghetti très indigeste à relire et maintenir)

également des petits conseils :

- indenter le code, c'est à dire le mettre "en relief" pour voir en un coup d'œil sa structure et s'y repérer
- il est permis dans une boucle For/Next de ne pas nommer la variable en fin de boucle (on écrit "Next" tout court). Cependant, quand on débute, qu'on indente pas son code, qu'on met des Goto .... ça devient presque un impératif pour savoir à quel boucle se rapporte quel next
- plutôt que d'activer un objet (une feuille, une cellule etc...), d'utiliser l'objet actif (celui qu'on a sélectionné) et ensuite de lui appliquer une méthode ou de consulter une propriété, il est préférable (moins de code, exécution plus rapide) de tout faire d'un seul coup : MonObjet.MaPropriété. Regarde l'exemple que j'ai mis dans le message précédent, où on passe de trois lignes de code (sélectionner une feuille pour la rendre active / sélectionner une plage de la feuille active / fusionner la plage active) à une seule ligne (LaFeuille.LaPlage.Fusionner)

voici déjà la remise en forme du code, et l'ajout des variable après les next.
Tu verras tout de suite l'alambication de ton code, qui est probablement simplifiable en + des Goto qui vont se supprimer avec une modification habile des if qui sont liés
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 Ref.Select For j = 87 To 124 service = Hor.Cells(j, 3) If service = "" Then GoTo finishcadre End If Ref.Range("A2:AP" & DernLigneUser).AutoFilter Field:=1, Criteria1:=service 'Range(A2:AP) Ref.Select DernLigneUserHor = Ref.Range("AK" & Rows.Count).End(xlUp).Row Add = 0 For i = 3 To DernLigneUserHor If Ref.Cells(i, 1) = Hor.Cells(j, 3) Then If Ref.Cells(i, 17) = "JOUR" Then If Ref.Cells(i, 41).Value = Hor.Cells(85, 3) Then For k = j To j + Add If Ref.Cells(i, 37) = Hor.Cells(k, 4) Then Hor.Cells(k, 5) = Hor.Cells(k, 5) + 1 GoTo nexxtcadre End If Next j If Add > 0 Then Hor.Rows(j + Add).Insert Hor.Select Range(Cells(j, 3), Cells(j + Add, 3)).Merge End If Hor.Cells(j + Add, 4) = Ref.Cells(i, 37) Add = Add + 1 End If End If End If nexxtcadre: Next i finishcadre: Next j DernLigneHorHor = Hor.Range("D" & Rows.Count).End(xlUp).Row For i = 85 To DernLigneHorHor If Hor.Cells(i, 4) <> "" Then Href = Hor.Cells(i, 4).Value Hdeb = Left(Href, Len(Href) - 8) Hfin = Right(Href, Len(Href) - 8) For j = 7 To 35 If Hor.Cells(4, j) = Hdeb Then Hor.Cells(i, j) = Hor.Cells(i, 5) + 1 'Dim alpha As Range Set alpha = Hor.Cells(i, j).Object 'MsgBox alpha End If If Hor.Cells(4, j) = Hfin Then Hor.Cells(i, j) = Hor.Cells(i, 5) + 1 'Dim beta As Range Set beta = Hor.Cells(i, j).Object End If Hor.Select Hor.Range(alpha.Address & ":" & beta.Address).Merge Selection.Merge Next End If Next
pour la suite ... faut des explications. Dis-toi qu'on a juste ton code sous les yeux, on doit comprendre le contexte pour aller plus loin :aie:

Joe.levrai merci infiniment.

Je vais essayer de rendre le code plus clair, i lest vrai que même moi je m'y perds parfois.

Par contre, pour la première question, cela ne fonctionne toujours pas, quelqu'un a une idée ?
Pour rappel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
                                    If Hor.Cells(4, j) = Hdeb Then
                                    Hor.Cells(i, j) = Hor.Cells(i, 5) + 1
                                    'Dim alpha As Range
                                    alpha = Hor.Cells(i, j).Object
                                    End If

                                    If Hor.Cells(4, j) = Hfin Then
                                    Hor.Cells(i, j) = Hor.Cells(i, 5) + 1
                                    beta = Hor.Cells(i, j).Object
                                    End If

                                    Hor.Select
                                    Hor.Range(alpha.Address & ":" & beta.Address).Merge
                                    Selection.Merge

J'ai toujours mon erreur sur la fusion :(

23/03/2016, 21h19
joe.levrai

enlève déjà les .Object

et pourquoi avoir enlevé l'instruction Set ... qui est obligatoire quand on instancie une variable Objet

Code:

Set MaCellule = MaFeuille.Cells(Ligne,Colonne)

mais ne t'attarde pas trop à bricoler ta structure de code qui semble inappropriée, passe plutôt ce temps sur l'explication de ce que doit faire cette macro par rapport à la structure de ta feuille.

la façon de faire ton merge est dangereuse, mais impossible de le certifier sans avoir le contexte. Il suffit que tes deux cellules ne soient pas contigues et tu va fusionner toute la plage comprise entre les deux cellules.
24/03/2016, 11h34
Marc-L
Bonjour, bonjour !
Citation:
Envoyé par joe.levrai

alpha et beta sont des objets représentant des cellules
quand ensuite tu utilises un Range() pour définir une plage de cellules, c'est la propriété "adresse" de ton objet Range qu'il faut utiliser
donc ceci :

Code:

1 2 3 Hor.Select Range(alpha & ":" & beta).Select Selection.Merge

devient :

Code:

Hor.Range(alpha.Address & ":" & beta.Address).Merge
C'est dommage de transformer des cellules en adresses alors que Range accepte aussi des cellules !
Code:

1 2 3 4 5 6 7 Dim alpha As Range, beta As Range Set alpha = Hor.Cells(i, j) Set beta = Hor.Cells(i, j) Range(alpha, beta).Merge
Voilà, voilà !

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
24/03/2016, 11h48
joe.levrai

Hello,

entièrement d'accord, j'aurai gagné à la préciser :rouleau:
d'où mon conseil de ne pas chercher à rafistoler la procédure actuelle, et ma mise en garde sur le danger possible d'utiliser ce type de Range() :aie:

Mais vu le point de départ et l'arrivée attendue, je préfère le faire par étape, sinon on risque de le perdre en cours de route ?
24/03/2016, 12h42
Marc-L

Peut-être …

Ce qui me gêne c'est la fusion, déconseillée quel que soit le forum, français comme étranger !
Souvent un alignement horizontal Centré sur plusieurs colonnes de la plage de cellules est suffisant la plupart du temps …
24/03/2016, 13h47
Vithale
Coucou à vous !
Merci pour vos réponses mais la solution pour fusionner les cellules à partir de variables n'est toujours pas fonctionnelle :(

J'ai fait une procédure plus simple, basé sur le même fonctionnement, j'imagine que ce sera plus simple pour vous pour m'aider :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub testfus() Set a = Worksheets("feuil1") Dim alpha As Range, beta As Range alpha = a.Cells(1, 1) beta = a.Cells(1, 2) Range(alpha.Address, beta.Address).Merge End Sub
J'ai toujours une erreur sur la ligne :(
Range(alpha.Address, beta.Address).Merge

Pour ce qui est de l'explication de mon code entier, il est vraiment trop compliqué à expliquer je ne sais même pas par ou commencer ..

PS : j'ai également essayé avec : Range(alpha, beta).Merge mais ça ne fonctionne pas non plus :(

Bonjour,
sans analyser plus loin, dans cette partie, il manque les "Set"
Code:

1 2 3 Dim alpha As Range, beta As Range alpha = a.Cells(1, 1) beta = a.Cells(1, 2)
soit
Code:

1 2 Set alpha = a.Cells(1, 1) Set beta = a.Cells(1, 2)

24/03/2016, 18h38
Marc-L

Citation:

Envoyé par Vithale

J'ai toujours une erreur sur la ligne :(

Normal, tu n'as pas lu mon code ‼