Recherche en vba

[ingel]

Bonsoir à tous,

Je voudrai faire une recherche en VBA afin d'affecter la valeur d'une cellule sur autre feuille;
j'ai pu avancer avec ce petit bout de code :

Sub memoire()
Dim mem As Variant
For mem = 3 To ActiveWorkbook.Sheets.Count
If Sheets(mem).Name = Sheets(" Recap").Cells(mem, 1) Then
Sheets(mem).[K15].Value = Sheets(" Recap").Cells(mem, 2).Value
End If
 Next mem
 end Sub

Par contre j'ai un souci avec les ligne vides, ou quand il y a un décalage dans ma colonne, cela me renvoi rien alors que les valeurs existe bien dans ma table.

Quelqu'un pourrait m'aider svp

Merci

 

[camarchepas]

Re : Recherche en vba

Bonsoir Ingel ,

Tu dits qu'il y a décalage ,

si tu pouvais joindre un fichier démo, reprennant ce décalage , ça éviterait de perdre du temps et de l'énergie

 

[ingel]

Re : Recherche en vba

Bonsoir,
j'ai joint un petit model
pour etre plus clair, la recherche que je veut faire c'est une recherche sur toute la colonne A et non pas juste la cellule (mem,1)

Merci

 

[camarchepas]

Re : Recherche en vba

Re ,

Voici la solution proposée :

Sub memoire()
Dim Cellule  As Range
Dim LigneFin As Long
LigneFin = Sheets(" Recap").Range("A" & Rows.Count).End(xlUp).Row
For Each Cellule In Sheets(" Recap").Range("A3:A" & LigneFin)
 If Cellule <> "" Then Sheets(Cellule.Value).[K15] = Cellule.Offset(0, 1).Value
Next
  
End Sub

 

[ingel]

Re : Recherche en vba

Bonsoir,
Je vous remercie pour la solution et je m'en excuse pour le retard,
votre solution marche a merveille
cdt

 

[ingel]

Re : Recherche en vba

bonsoir,
c'est encore moi,
au fait j'ai rencontré un souci avec le code plus haut, en effet si par exemple un produit existe dans la recap mais pas de feuille correspondante, la macro bug
Merci

 

[camarchepas]

Re : Recherche en vba

Bonsoir ,

Et alors que faut -il faire ?

Ignorer le produit ou créer l'onglet ?

 

[ingel]

Re : Recherche en vba

Bonjour,

Mecri encore une fois pour votre aide,
Au fait il faut crée un onglet et coller la valeur dessus

Merci

 

[camarchepas]

Re : Recherche en vba

Bonjour ,

Donc suite au nouveau cahier des charges :

Sub memoire()
 Dim Cellule  As Range
 Dim LigneFin As Long
 LigneFin = Sheets(" Recap").Range("A" & Rows.Count).End(xlUp).Row
 For Each Cellule In Sheets(" Recap").Range("A3:A" & LigneFin)
  If Cellule <> "" Then
    On Error Resume Next
    Sheets(Cellule.Value).[K15] = Cellule.Offset(0, 1).Value
    If Err.Number = 9 Then
       ThisWorkbook.Worksheets.Add
       ActiveSheet.Name = Cellule.Value
       Sheets(Cellule.Value).[K15] = Cellule.Offset(0, 1).Value
       
    End If
    On Error GoTo 0
  End If
 Next
   
End Sub

 

[ingel]

Re : Recherche en vba

Bonsoir,
Impeccable
je vous suis très reconnaissant
merci