remplissage cellules

[p.fournand]

Apres avoir rechercher dans une colonne une valeur, je voudrais remplir les cellules adjacente

EX: Sub Rechercher()
Dim Ws As Worksheet, Cel As Range

Set Ws = Worksheets("Données")
With Ws
For Each Cel In .Range("A3:A" & .Range("A65536").End(xlUp).Row)
If Cel.Value = Saisie.DateSaisie.Text Then

'Remplissage des cellules suivante avec les valeurs de C1 a C7 saisie


End If
Next Cel
End With
End Sub

Merci d'avance

 

[p.fournand]

Re : remplissage cellules

toutes mes excuses,
il peut y avoir dans les donnees c1 a c7 n'importe quelle valeur numerique
je joint quand meme le fichier si ca peut servir a quelqu'un
PF

 

[job75]

Re : remplissage cellules

Bonjour,

Dans la feuille, nommez plage les 7 cellules à copier (mais ce n'est pas indispensable, juste au cas où...).

En supposant que Saisie.DateSaisie signifie quelque chose, pour copier les valeurs de cette plage :

If Cel.Value = CDate(Saisie.DateSaisie) Then Cel.Offset(, 1).Resize(, 7) = Application.Transpose([plage].Value)

ou aussi :

If Cel.Text = Saisie.DateSaisie Then Cel.Offset(, 1).Resize(, 7) = Application.Transpose([plage].Value)

Edit : ah mais pour copier, il faut transposer plage, si c'est une colonne.

A+