Discussion :

[Tydher]

Bonjour à tous.

Apres avoir recuperer des valeurs dans mes variables je souhaite faire un traitement en utilisant un Range :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Range("indexG:indexQte,indexJalons:indexJalons,indexCI:indexRemarques-1,indexI:indexCE+1").Select 
    With Selection 
        .HorizontalAlignment = xlCenter 
        .VerticalAlignment = xlCenter 
        .Orientation = 0 
        .AddIndent = False 
        .MergeCells = False 
    End With

Cependant, il ne marche pas et j'ai une erreur de type :
La methode Range de l'objet Global à écoué

Merci

[mercatog]

indexG c'est une variable, c'est ça? de quel type et quelle est sa valeur (adresse de cellule, ou n° de colonne)
Précise

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim IndexG As String, IndexQte As String
 
IndexG = "B1"
IndexQte = "L34"
With Sheets("Feuil1").Range(IndexG & ":" & IndexQte)
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Orientation = 0
    .AddIndent = False
    .MergeCells = False
End With

[bellande]

bonjour,

d'une manière générale Range s'utilise de la façon suivante par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:H8")

il faudrait plus de détails sur vos besoins pour exprimer la bonne syntaxe dans votre cas

[Tydher]

Merci pour vos réponses.

Mes variables sont de types integer.

Le but serai en fait de faire la dé-fusion des cellules, qui par défaut sont fusionnées dans ma feuille Excel.

En fait, pour apporter plus de détails, avant le Range, j'ai une boucle qui me récupere le numéro de la colonne, car selon les feuilles Excel, les colonnes ne sont pas aux mêmes endroits.

Il faudrait donc que j'associe la cellule A1, par exemple, à ma variable indexX.
Sauf que si je fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

indexX = Cells(1,i)

l'index récupere ce qui se trouve dans la cellule et non l'emplacement

J'ai modifié le type de mes variables en String et j'ai rajouté dans ma boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
indexG = Cells(1,i).Address
...

Cependant j'en suis toujours au même point.
Erreur : la methode Range de l'objet _globlal a echoué

[Tydher]

Mes variables sont au final de type Object et mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
i = 1
For j = 1 To nombreColonne
    entete = Cells(1, j).Value
 
   If (entete = "G") Then
    set  indexG = Cells(1, i)
     ElseIf (entete = "QTE") Then set indexQte = Cells(1, i)
     ElseIf (entete = "J") Then set  indexJ = Cells(1, i)
     ElseIf (entete = "CI") Then set indexCI = Cells(1, i)
     ElseIf (entete = "Engagement") set Then indexEngagement = Cells(1, i)
     ElseIf (entete = "REMARQUES") set Then indexRemarques = Cells(1, i - 1)
     ElseIf (entete = "CE") Then set indexCE = Cells(1, i)
    End If
    i = i + 1
Next j
'------------------------------------------------------------------------
'UNMERGE des cellules de la 1ere ligne
'-----------------------------------------------------------------------
Union(Range(indexG, indexQte), Range(indexJ, indexJ), Range(indexCI, indexEngagement), Range(indexRemarques, indexCE)).Select
With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .MergeCells = False
    End With

[mercatog]

Le but final est quoi?
jusqu'à maintenant, tu n'as pas expliqué le but.

Sinon, sans conviction, essaie ce code (adapte le nom de la feuille):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub Test()
Dim Tb As Variant, Res() As String
Dim i As Integer, k As Integer
Dim c As Range
 
Tb = Array("G", "QTE", "J", "CI", "Engagement", "REMARQUES", "CE")
 
With Sheets("Feuil1")                            ' à adapter
    For i = LBound(Tb) To UBound(Tb)
        Set c = .Rows(1).Find(Tb(i), LookIn:=xlValues, lookat:=xlWhole)
        k = k + 1
        ReDim Preserve Res(1 To k)
        Res(k) = IIf(i = 5, c.Offset(0, -1).Address, c.Address)
        Set c = Nothing
    Next i
    With Union(.Range(Res(1), Res(2)), .Range(Res(3)), .Range(Res(4), Res(5)), .Range(Res(6), Res(7)))
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .MergeCells = False
    End With
End With
End Sub

PS: Etranges quand même ces 2lignes (simplement fautes de frappe):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
     ElseIf (entete = "Engagement") set Then indexEngagement = Cells(1, i)
     ElseIf (entete = "REMARQUES") set Then indexRemarques = Cells(1, i - 1)