Discussion :

[renartichaud]

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 :

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

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 !

[casefayere]

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 ?

[renartichaud]

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

[casefayere]

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

[Menhir]

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.

[yanot33]

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 :

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

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

[renartichaud]

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

[Marc-L]

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 …