Discussion :

[jfamiens]

Bonjour,

Encore un souci avec VBA. Je ne trouve pas comment faire pour vérifier, dans un onglet, la présence d'une valeur particulière.

Ci joint, le code :

Code :

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

1
2
3
4
5
6
7
 
Dim lignevideE As Long
Dim test As Long
Dim test2 As Long
 
    ' je récupère la valeur de la 1ere colonne F, onglet "Prévisionnel"
test = Sheets("Prévisionnel").Range("E2")

==> Comment faire pour savoir si il existe une même valeur dans la colonne E de l'onglet "Collecte_Données" ?

Je dois faire un If test = test2 then...

Cependant je ne sais pas comment faire une recherche d'une valeur sur une colonne ?

le reste fonctionne: je copie la plage à la suite des données existantes sur l'onglet "Collecte_Données"

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
 
Else
       'derniere ligne vide de la colonne E
lignevideE = Sheets("Collecte_Données").Range("E65536").End(xlUp).Row + 1
 
    'je copie la plage "plage_copie" de l'onglet "Prévisionnel"
Sheets("Prévisionnel").Range("plage_copie").Copy
 
    'je me positionne sur l'onglet cible
Sheets("Collecte_Données").Activate
 
    'je me positionne sur la premiere cellule vide la colonne E et je colle
Range("E" & lignevideE).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If

D'avance, merci

[zazaraignée]

Salut

Inspires-toi de ceci:

Code :

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

1
2
3
4
5
6
Dim cellule As Range
For Each cellule In Feuille("NomFeuille").Range("H:H")
    If cellule.Value = Feuille("nomAutreFeuille").Range("celluleCritere").Value Then 
        ' traitement
    End If
Next

[Vesta]

Code :

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

1
2
3
4
5
6
7
8
9
I=0
Found=False
 
'test valeur recherchée, range est la plage de recherche
 
For Each Cel in Range(E1:E11).cells 
   i=i+1
   If cel.value = test then exit For : Found=True
Next

[jfamiens]

Ok je viens de piger l'ensemble . Merci à vous 2

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
 
Dim lignevideE As Long
Dim test As Long
Dim cellule As Range
 
    ' je récupère la valeur de la 1ere colonne E, onglet "Prévisionnel"
test = Sheets("Prévisionnel").Range("E2")
 
For Each cellule In Sheets("Collecte_Données").Range("E:E")
    If cellule.Value = Sheets("Prévisionnel").Range("E2").Value Then
       Exit Sub
End If
 Next
 
 'derniere ligne vide de la colonne E
lignevideE = Sheets("Collecte_Données").Range("E65536").End(xlUp).Row + 1
 
    'je copie la plage "plage_copie" de l'onglet "Prévisionnel"
Sheets("Prévisionnel").Range("plage_copie").Copy
 
    'je me positionne sur l'onglet cible
Sheets("Collecte_Données").Activate
 
    'je me positionne sur la premiere cellule vide la colonne E et je colle
Range("E" & lignevideE).Select
Selection.PasteSpecial Paste:=xlPasteValues

[jfamiens]

Un léger souci:

Je ne trouve pas comment aller se positionner sur une cellule précise

=> je souhaite en effet me positionner sur la premiere cellule répondant au critère (de la colonne E) et copier/Coller (je sais faire)

Je cherche dans l'aide en ligne mais sans résultat

PS: j'ai supprimé le "Résolu" car cela fait suite à mon précédent souci

[Vesta]

Sur quelle celule???

La premiere vide ca ca devrait etre bon vu le code...

[jfamiens]

Non Vesta, ce n'est pas sur la derniere vide.

En fait , il faut que je récupère la position de la premiere cellule de la colonne E qui vérifie le critère ( = 1ere cellule de la colonne E dans l'autre onglet)

En fait, je bloque avec F1 sur comment se positionner sur une autre cellule que la 1ere ou la derniere.

merci pour vos recherches