VBA comment écrire : colonne contient une valeur

Bonjour,
Comment je peux écrire en VBA : Si la colonne I contient la valeur d'une cellule ou d'une autre ?
Pour être plus claire : voici ce que j'essaie de faire : lorsque ma valeur de la colonne C est supérieur à 0.125 et que l'une des deux valeurs des colonnes A et B à la ligne i correspondante est déjà dans la colonne I, je veux inscrire l'autre valeur dans la colonne I aussi.

Voilà ce que j'ai commencé à écrire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub regroup()   Dim i As Long   Range("I3").Select   For i = 2 To 2486 If Cells(i, 3).Value > 0.125 And columns(I:I) contient cells(i,2) ou Cells(i,1) Then ActiveCell.Value = Cells(i, 1).Value ActiveCell.Offset(1, 0).Select ActiveCell.Value = Cells(i, 2).Value End If Next i   End Sub

---

Voilà, si quelqu'un peut déjà me dire comment traduire mon "contient" ça m'aiderait beaucoup !

Bonjour,
ton code n'est pas clair, je traduis :
tu parcoures la colonne C pour trouver la 1ère valeur supérieure à 0.125, dès que tu la trouves
si en col A de la même ligne, une même valeur est trouvée en col I, que fais-tu ?
ou
si en col B de la même ligne, une même valeur est trouvée en col I, que fais-tu ?

Si l'une de mes valeurs en A ou en B est contenue dans ma colonne I je veux ajouter celle qui n'y est pas contenue. Si aucune de mes valeurs n'est contenue je veux passer à la ligne suivante.

Je ne sais pas si c'est possible de faire ça (je suis novice en VBA)

merci de votre aide :)

Citation:

---

je veux ajouter celle qui n'y est pas contenue

---

je ne comprends toujours pas, tu veux ajouter ou ? en I ? si oui, sur quelle ligne ?

il faut des explications précises, ton code ne m'aide pas à deviner surtout avec tes "select" lesquels, je le parie, sont inutiles

Citation:

---

Envoyé par renartichaud

Si l'une de mes valeurs en A ou en B est contenue dans ma colonne I

---

Pour savoir si une valeur se trouve dans une zone, utilise la méthode Find de l'objet Range.

Je conseille très fortement de ne pas mettre une colonne entière comme Range parce que la recherche risque de prendre du temps inutilement. Essayer de border la zone de recherche.

Bonsoir,
cette macro boucle sur 2486 lignes
et pour chaque ligne, récupère le tout de la colonne a et b
dans ce cas on a tout les cas et si il n'y a rien elle n'écrit rien et donc on passe
à la ligne suivante.
peut faut-il inserer un espace entre les les valeurs ?
a tester

Code:

---

1 2 3 4 5 6 7 8 9

Sub Tamacro() For L = 2 To 2486 If Cells(L, 3).Value > "0.125" Then For C = 4 To 256 Cells(L, C).Value = Cells(L, 1) & Cells(L, 2) Next C End If Next L End Sub

---

Merci, je vais essayer avec vos solutions !
Merci de votre aide :)

Bonjour, bonjour !

Avant de se lancer dans de la p'tite usine à gaz en VBA du genre boucler sur toutes les lignes
(la méthode Find étant quand même plus rapide !),
se poser déjà la question si une fonction de feuille de calculs peut le faire ?

Et dans ce cas la réponse est oui : NB.SI par exemple …

Facilement utilisable en VBA via la méthode Evaluate ou encore via les propriétés WorksheetFunction et Application …