Discussion :

[nisrine hammout]

Bojour tout le monde,

Je veux faire une boucle sur des cellules jai reussi a faire une condition sur

La voila

Code :

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

1
2
3
4
If Range("R26:S26").mergecells then 
MsgBox "oui"
Else msgbox "non"
End if

Mais le problme comment le faire avec une boucle for plus precisement comment introduire le compteur i dans Range(R....

Et merci votre aide

[patricktoulon]

Bonjour
tu veux faire quoi exactement
car ton énoncé n'est pas très clair

je pense que la on peut parler de "areas" ou cells(x,y).mergearea

mais ne sachant rien de plus difficile de t'aider

[Theze]

Bonjour,

Un petit exemple pour la manipulation des cellules fusionnées sachant qu'il est fortement déconseillé de les utiliser surtout si des opérations doivent être faites sur ces cellules :

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
27
 
Sub Test()
 
    Dim Plage As Range
    Dim I As Integer
 
    'défini la plage en colonne A
    Set Plage = Range("A1:A30")
 
    'parcour les cellules de la plage
    For I = 1 To Plage.Count
 
        'si fusionnée...
        If Plage(I).MergeCells Then
 
            'inscrit le nombre de cellules fusionnées et leurs adresse
            Debug.Print "- Nombre de cellules fusionnées : " & Plage(I).MergeArea.Cells.Count & _
                        " - Adresse de la plage fusionnée : " &  Plage(I).MergeArea.Address(0, 0)
 
            'incrémente i pour sauter à la cellule qui suit la plage fusionnée
            I = I + Plage(I).MergeArea.Cells.Count
 
        End If
 
    Next I
 
End Sub

[nisrine hammout]

j'ai réussi à le faire
voila mon code

Code :

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

1
2
3
4
5
6
for i to 20
if Range("R" & i &":"S" & i) then 
msgbox "oui"
elseif msgbox "non"
end if 
next

[Theze]

Bonjour,

for i to 20
if Range("R" & i &":"S" & i) then
msgbox "oui"
elseif msgbox "non"
end if
next

Ce code c'est juste n'importe quoi !