Parler VBA

[Didier972]

Bonjour

Voilà, j'aimerai savoir comment en VBA je peux traduire cela.

Recupere la valeur de la "Feuil1" qui se trouve en ("D7"), et cherche là et selectionne la cellule correspondante sur la "feuil2"

Ensuite je me débrouillerais avec activecell.offset

Merci

 

[Staple1600]

Re : Parler VBA

Bonsoir

Tu as essayé avec l'enregistreur de macros ?

PS: Tu peux, stp, éditer le titre de ton post afin qu'il soit explicite et illustre ta problématique.
Merci

EDITION: Bonsoir Hasco 😉

 

[Guest]

Re : Parler VBA

Bonsoir,

Recupere la valeur de la "Feuil1" qui se trouve en ("D7"), et cherche là

Chercher Où?

A+

 

[Staple1600]

Re : Parler VBA

Re


Dans le feuille 2 non ?

 

[Didier972]

Re : Parler VBA

oui, c'est cela, valeur de D7 qui se trouve dans la feuille1, en cliquant sur un CommandButton, j'aimerais qu'il y est une fonction recherche qui s'effectue et que retrouve la valeur de D7, dans la feuil2 (elle se trouve dans la colonne A, c'est la fonction recherche en VBA, que je ne connais pas. Merci

 

[Staple1600]

Re : Parler VBA

Re



Tu n'as pas lu ma suggestion concernant le titre de ton fil ?

PS: Find -> Recherche

EDITION: Bonsoir Gorfael

 

[Gorfael]

Re : Parler VBA

Salut Didier972 et le forum

Recupere la valeur de la "Feuil1" qui se trouve en ("D7")Range("D7"), et cherche (Find) là et selectionne (idée nulle) la cellule correspondante sur la "feuil2"

Dim Cel As Range    'défini Cel comme étant une plage de cellules
Set Cel = Sheets("Feuil2").Cells.Find(What:=Sheets("Feuil1").Range("D7"), LookIn:=xlValue, _
            LookAt:=xlWhole)
if not(cel is nothing) then 
    'Traitement si on a une cellule qui correspond
Else
    'Taitement s'il n'y a pas de correspondance
end if

mettre dans la variable Cel la cellule de feuil2 dont la valeur de la totalité de la cellule est égale à D7 de feuil1
Comme c'est fait pour avoir un maximum de rapidité, on va pas ralentir en passant par les Select/Activate/selection/Activecel !
donc en Cel tu as la cellule cible
Cel.offset(0,1) => cellule à droite de cel

Autant prendre de bonnes habitudes : même si normalement on aura toujours une correspondance, on prévoit toujours le cas où on ne trouve pas de cellule (en règle générale, une simple MsgBox d'avertissement, et on arrête la macro).

Si tu t'obstines à utiliser activecel, il faut :
- activer la feuil2 (tu ne pourra plus utiliser un module de classe feuille)
- vérifier que la cellule active est bien celle qui est égale à D7 de feuil1 => eh oui, même si on ne trouve pas de correspondance, il y a toujours une cellule active. Les résultats sont parfois rigolos... ou catastrophiques !
A+