VBA copie de cellules sous conditions avec 2 onglets
Bonjour à tous,
Après avoir longtemps chercher, je m'incline et m'avoue vaincu :/
Mon problème est illustré avec le fichier joint
Je souhaite créer une macro qui dans cet exemple alimente les cellule B9 à B19 avec les chiffres correspondant de la feuille 2.
Pour cela, il faut que la macro prenne chaque valeurs présentes en colonne A et que celles ci soit recherchées une par une dans la feuille 2 .
Dans le cas ou la valeur est trouvée dans la feuille 2, j'aimerais reporter la valeur et le format de la cellule adjacente feuille 2 dans la cellule adjacente de la valeur cherchée dans la feuille 1.
Si il n'y a pas de correspondance, ne rien faire.
J'ai testé de nombreuse choses, mais sans succès !
merci d'avance pour votre précieuse aide.
Cordialement,
Thomas
Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Bye !
Je te remercie!!
Cela me convient en partie, ta macro ne prend pas en compte le format, j'aimerais qu'il prenne en compte le format de police des chiffres.
Est ce possible ?
Merci
Pour info, j'ai programmée cette macro mais elle ne ffonctionnait que partiellement et ne prenait pas en compte les formats.
Ta macro a déjà le mérite d'être plus simple et plus efficiente :
Sub importdonnéefeuille()
Dim cel As Range
Sheets("1").Select
With Sheets("1")
For I = 2 To .Range("A" & Rows.Count).End(xlUp).Row
Set cel = Sheets("2").Range("B:B").Find(What:=Range("A:A" & I), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not cel Is Nothing Then .Range("B" & I) = cel.Offset(0, 1)
Set cel = Nothing
Next I
End With
End Sub
totocool a écrit :j'aimerais qu'il prenne en compte le format de police des chiffres.
Alors, il faut changer de méthode. Et, si tu as des tableaux très gros, la macro mettra beaucoup plus temps à faire son travail.
Bye !
Wahou super!!!
Bon il va falloir que je me penche un peu la dessus, je suis en admiration totale ^^
ça fonctionne parfaitement!
Merci