Discussion :

[SOTUMA]

bonjour tout le monde,

j'ai une variable col de type range
j'ai une instruction de ce genre

Code :

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

Set col = Range("A2:A15")

ça marche très bien sauf que maintenant je ne dois pas stocker dans col toutes les cellules c a d je stocke uniquement les cellules répondants à un critère ( si Ai="toto" je ne le stocke pas ) i de 2 à 15 comment faire
SVP
merci d'avance

[joe.levrai]

Bonjour, le plus simple pour apprendre ...

il faut parcourir ta plage de données, cellule par cellule, et tester sa valeur
si ta cellule doit figurer dans ta variable Range finale, alors tu l'ajoutes à ta variable via la méthode Union

Code :

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

 Set Myrange = application.union(MyRange,MyCell)

avec MyRange ta variable range finale et MyCell la cellule actuellement testée dans ta boucle For Each MyCell in MaPlage.Cells

Bons travaux

[SOTUMA]

merci pour votre réponse
j'ai fait la chose suivante

Code :

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

1
2
3
4
5
6
7
8
For i = 2 To Derli
 
      If Cells(i, 1) <> "toto" Then
 
      Set col = Application.Union(col, Cells(i, 1))
      End If
 
Next i

avec col de type Range, derli la dernière ligne de la colonne A
alors j'ai un message d'erreur "la méthode 'Union de l'objet '_Application a échoué

[unparia]

Bonjour
On ne peut pas utiliser Union pour unir rien avec quelque-chose
le principe est celui-ci (à toi de comprendre et appliquer)

Code :

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

1
2
3
4
5
6
Dim col as range
if col is nothing then
  set col = ....une plage ...
else
  set col = union(col, ... une plage ...)
end if

[joe.levrai]

il faut absolument que Col soit "quelque chose" si tu veux l'unir à un autre objet
donc la première cellule que tu mets dans Col ne doit pas l'être par Union mais par affectation directe

par exemple, en reprenant textuellement le tiens :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub io()
Dim Col As Range, Derli As Long
Derli = 15 'pour l'exemple
    For i = 2 To Derli
        If Cells(i, 1) <> "toto" Then
            If Not Col Is Nothing Then
                Set Col = Application.Union(Col, Cells(i, 1))
            Else
                Set Col = Cells(i, 1)
            End If
        End If
    Next i
End Sub

[SOTUMA]

merci beaucoup pour votre aide
je ne sais pas pourquoi quand je met le code dans un module ca ne marche pas j'ai ce message d'erreur "la méthode 'Union de l'objet '_Application a échouéet quand je le met dans le UF il marche alors comment faire car je suis oblige de le mettre dans le module
un grand merci pour joe.levrai

[unparia]

Peut-être parce-que ton code ne précise pas à quelle feuille appartiennent les cellules que tu traites. Sinon : aucune autre raison d'erreur possible avec ce code.

Au passage : je n'aime pas

Code :

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

If Cells(i, 1) <> "toto"

Qui pourrait prêter à confusion. Je sais que VBA est tolérant, mais prends l'habitude de spécifier la propriété utilisée -->>

Code :

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

If Cells(i, 1).value <> "toto"

EDIT : j'appelle par ailleurs ton attention sur le fait que si l'une des cellules parcourues de ta colonne A est en erreur, tu auras une incompatibilité de type !