macro pour rechercher et coller les données...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide concernant l'écriture d'une macro qui puisse aller rechercher des données dans une base et les replacer au bon endroit dans un formulaire....
pièce jointe

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian.

 

[_Thierry]

Re : macro pour rechercher et coller les données...

Bonsoir Christian

Ultra à la bourre... Voici une ébauche de macro, je dois filer, elle ne fonctionne pas encore d'autant que tuu as des colonnes masquées...

Option Explicit
Option Compare Text
Sub TheCollector()
Dim PlageSource As Range, CellSource As Range
Dim PlageCible As Range, CellCible As Range
 
With Sheets("Archlignes")
    Set PlageSource = .Range(.Range("B2"), .Range("B500").End(xlUp))
End With

With Sheets("PainMidiSoir")
    Set PlageCible = .Range(.Range("C5"), .Range("C500").End(xlUp))
End With
 
For Each CellSource In PlageSource
    If CellSource.Offset(0, -1) = Sheets("PainMidiSoir").Range("Y1") Then
        For Each CellCible In PlageCible
           If CStr(CellSource) = CStr(CellCible) Then
            CellCible.Offset(0, 1) = CellSource.Offset(0, 1)
            CellCible.Offset(0, 2) = CellSource.Offset(0, 2)
           End If
        Exit For
        Next
    End If
Next

End Sub

C'est juste pour une base de départ...

Je repasserai ce week end au cas où...

@+Thierry
​

 

[CBernardT]

Re : macro pour rechercher et coller les données...

Bonsoir Christian, Cher Thierry et le forum,

Une macro par tableau dynamique.

Cordialement

Bernard

 

[Christian0258]

Re : macro pour rechercher et coller les données...

Bonjour à tout le forum,

Merci à vous Thierry et Bernard pour vos solutions.

Bernard ta macro est impec, ça fonctionne parfaitement, merci beaucoup.

à+

Christian

 

[CBernardT]

Re : macro pour rechercher et coller les données...

Bonjour Christian et le forum,

Une remise à niveau pour aller plus vite encore......et corriger une petite erreur à la fin de la macro : Application.ScreenUpdating = True

Cordialement

Bernard

 

[Christian0258]

Re : macro pour rechercher et coller les données...

Bonsoir à tout le forum,

Je souhaiterais modifier cette macro...qui fonctionne parfaitement mais qui écrase toute la colonne...
fichier joint plus simple

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Chrustian.