erreur VBA

[Dangdang]

Bonjour,
Je fais appel de votre aide. Mon code plante dès le début
Sheets(2).Range("C7").Select

Sub Saisi_AutoCde()

Application.ScreenUpdating = False 'est primordiale si l'on veut gagner afin d'optimiser lors, du traitement
'en écriture sur des Ranges ou sur des Manipulation de Feuilles.

Dim Cde As Variant
Dim MaValeur As Variant
Dim MaPlage As Range
Dim MaColonne As Single
Dim i As Variant
Dim x As Integer
Dim nbligne As Integer
Dim Dte As String

'Données pour la recherchev
MaValeur = Sheets(2).Range("B2") 'ma valeur de recherchev
Set MaPlage = Sheets(3).Range("A:C") 'mes colonnes de recherchev de l'onglet "EQV_DEST"
MaColonne = 3 'ma recherchev se fait sur la 3e colonne
ValeurProche = False ' valeur faux



Sheets(2).Range("C7").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Copy Sheets(1).Range("P2")

Sheets(2).Range("D7").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Copy Sheets(1).Range("S2")

Sheets(2).Range("E7").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Copy Sheets(1).Range("Q2")

If IsError(Application.VLookup(MaValeur, MaPlage, MaColonne, ValeurProche)) Then
MsgBox "Le code destinataire de la Cde client est inconnue dans l'onglet du tableau EQV_DEST"

Else
i = Application.VLookup(MaValeur, MaPlage, MaColonne, ValeurProche)
End If

 

[Wayki]

Bonjour,
Sans doute sheets(2) n'existe pas.
Dans tous les cas, remplacer le pavé par :
Sheets(1).Range("P2") = sheets(2).Range("C7:C" & [C7].End(xlDown))
A +

 

[Dranreb]

Bonsoir.
Je dirais plutôt que Sheets(2) n'est pas active, de sorte qu'il ne peut y être sélectionnée une cellule.
Application.GoTo Sheets(2).Range('C7") marcherait peut être.

 

[Jacky67]

Bonjour,
Je fais appel de votre aide. Mon code plante dès le début
Sheets(2).Range("C7").Select

Bonjour à tous
Il est inutile de sélectionner une cellule pour faire une copie
Sans classeur et sans code complet, j'utiliserais ce genre de code

Sub Saisi_AutoCde()
'-----------
'----------

    With Feuil2    'codename de la feuille 2
        .Range("C7:c" & .Cells(.Rows.Count, "c").End(xlUp).Row).Copy
        Feuil1.Range("P2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        .Range("d7:d" & .Cells(.Rows.Count, "d").End(xlUp).Row).Copy
        Feuil1.Range("S2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        '----etc-------
        '-----------
    End With
End Sub

 

[Dangdang]

Bonsoir, Merci mille milles milles fois à tous pour votre temps. J'ai corrigé et en effet en codant la selection de la feuille voulu, cela fonctionne (cf réponse Dranreb). Maix c'est etonnant, VBA est une grande galaxie parfois incompréhensible