Recherche en vba

camarchepas

XLDnaute Barbatruc

• 21 Janvier 2015

• #2

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

 

Vote positif 0 Vote négatif

I

ingel

XLDnaute Nouveau

• 21 Janvier 2015

• #3

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

 

Pièces jointes

• test.xlsm

  16.6 KB · Affichages: 49
• test.xlsm

  16.6 KB · Affichages: 56
• test.xlsm

  16.6 KB · Affichages: 57

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 21 Janvier 2015

• #4

Re : Recherche en vba

Re ,

Voici la solution proposée :

Code:

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

 

Vote positif 0 Vote négatif

I

ingel

XLDnaute Nouveau

• 4 Février 2015

• #5

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

 

Vote positif 0 Vote négatif

I

ingel

XLDnaute Nouveau

• 10 Février 2015

• #6

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Février 2015

• #7

Re : Recherche en vba

Bonsoir ,

Et alors que faut -il faire ?

Ignorer le produit ou créer l'onglet ?

 

Vote positif 0 Vote négatif

I

ingel

XLDnaute Nouveau

• 11 Février 2015

• #8

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 11 Février 2015

• #9

Re : Recherche en vba

Bonjour ,

Donc suite au nouveau cahier des charges :

Code:

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

 

Vote positif 0 Vote négatif

I

ingel

XLDnaute Nouveau

• 12 Février 2015

• #10

Re : Recherche en vba

Bonsoir,
Impeccable
je vous suis très reconnaissant
merci

 

Vote positif 0 Vote négatif