Sujet Précédent Sujet Suivant

Problème de copie colle

Résolu
VB_PtitCat Messages postés 197 Date d'inscription mercredi 30 mai 2007 Statut Membre Dernière intervention 13 mai 2009 - 23 oct. 2007 à 15:11
VB_PtitCat Messages postés 197 Date d'inscription mercredi 30 mai 2007 Statut Membre Dernière intervention 13 mai 2009 - 24 oct. 2007 à 08:33
Bonjour voilà le bout de script qui ne marche pas avec, la ligne contenant le problème en gras :



Private Sub Creation_fiche_HFH_2_Click()
Dim Crea_Feuil As Integer
Dim j, l As Long
Dim i As Integer
Dim txt_Nom_Schem As String
Dim txt_Taille As String
j = 3
l = 3
'Vérifie si la feuille Info_HFH existe déja
For i = 1 To Sheets.Count
    If InStr(1, Sheets(i).Name, "Info_HFH") = 1 Then
        Crea_Feuil = 0
        i = Sheets.Count
    Else
        Crea_Feuil = 1
    End If
Next i
'Création de la feuille Info_HFH si besoin est
If Crea_Feuil = 1 Then
    Sheets.Add(Before:=Sheets("Desc_HFH")).Name = "Info_HFH"
End If

'Copie/Colle l'en-tête de la feuille Desc_HFH vers Info_HFH
Sheets("Desc_HFH").Range("A1:BE2").Copy
ActiveSheet.Paste Destination:=Sheets("Info_HFH").Range("R1")

While Sheets("Info_HFH").Range("A" & j) <> ""
    txt_Nom_Shem = Sheets("Info_HFH").Cells(j, "P")
    txt_Taille = Sheets("Info_HFH").Cells(j, "E")
    While Sheets("Desc_HFH").Range("A" & l) <> ""
        If Sheets("Desc_HFH").Cells(l, "A") = txt_Nom_Shem And _
          Sheets("Desc_HFH").Cells(l, "G") = txt_Taille Then
            Sheets("Desc_HFH").Range(l & ":" & l).Copy
            

ActiveSheet.Paste Destination:=Sheets("Info_HFH").Range("R" _
              & j)
        End If
        l = l + 1
    Wend
    j = j + 1
Wend
End Sub
,

----

(Coloration syntaxique automatique par Kenji)


Il me sort ... Erreur définie pas l'application ou par l'objet.

Si vous pouviez me dire comment coller cette ligne a partir de la colonne R ce serrais top sympa
MerZi ... Zi ... Zi ... PtitCat   
                                 P.S:DSL pour l'orthographe

2 réponses

Réponse 1 / 2
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
24 oct. 2007 à 02:12
Sheets("Info_HFH").Range("R"& j).PasteSpecial






à essayer ...

MPi²
3
Réponse 2 / 2
VB_PtitCat Messages postés 197 Date d'inscription mercredi 30 mai 2007 Statut Membre Dernière intervention 13 mai 2009
24 oct. 2007 à 08:33
En fait j'ai trouver, le truc c'était que jê copier la ligne entière et il n'y a donc plus de place pour la recoller a partir de colonne autre que le première alors j'ai choisi de copier uniquement les cellules qu'il me fallait et non plus tout la ligne, et ca marche merci ^^

MerZi ... Zi ... Zi ... PtitCat   
                                 P.S:DSL pour l'orthographe
3

Discussions similaires

Copier un fichier bloc a bloc
Neo_Fr -
Neo_Fr -

4 réponses
COMMENT CALCULER LE VOLUME DE MORTIER POUR MONTER UN MUR EN PARPAINGS
STEPH1966 -
STEPH1966 -

5 réponses
VBA excel: copier-coller avec incrémentation
Jeep13330 -
us_30 -

11 réponses
copie de tableau
greg38bj -
greg38bj -

5 réponses
Constructeur par copie / surcharge de l'operateur =
tanguy_laverdure -
djl -

3 réponses
Rejoignez-nous