Discussion :

[flandreau]

Bonjour,

Voila 2 jours que je bloque sur un code des plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
On Error GoTo errLigne
Dim Nom As String, Ligne As String, Plage As String
Dim results
 
Nom = Range("B1").Value
 
'Recherche du nom
Set results = Worksheets("Janvier").Range("A3:A80").Find(What:=Nom, LookIn:=xlValues)
   If results Is Nothing Then
      MsgBox ("Agent non trouvé en Janvier !")
      Exit Sub
      Else
      Ligne = (results.Row)
    End If
 
'copie des présences
Plage = "B" & Ligne & ":Z" & Ligne + 1
Worksheets("Janvier").Range(Plage).Copy Destination:=Worksheets("Recherche").Range("B3")
 
Exit Sub
errLigne:
    MsgBox Err.Number & vbLf & Err.Description
End Sub

Au moment de copier les données d'une feuille vers l'autre, VB m'affiche une erreur :

L'objet invoqué s'est déconnecté de ses clients

puis le tableur est planté, il faut que je le ferme avec Ctrl Alt Sup.

De quoi ca peut bien venir ?

Merci d'avance

[LouiMz]

Bonjour,

Essayez ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Worksheets("Janvier").Range("B" & Ligne & ":Z" & Ligne + 1).Copy 
Worksheets("Recherche").Select
Range("B3").Select
Selection.PasteSpecial

Il m'est souvent arrivé de rencontrer des erreurs lors des copies de données. Dés lors, je décompose systématiquement les différentes actions.

Cordialement

[flandreau]

Merci pour votre réponse mais il doit surement manqué un paramètre après le Selection.PasteSpecial car j'ai un message :

La methode de PaseSpecial de l'objet range à échoué

L'idéal serait de copier tout (format des cellules et valeur)