Coller x fois un objet a la suite

Version imprimable

02/09/2020, 23h27
21vince

Coller x fois un objet a la suite
Bonjour, je bloque depuis quelque temps sur le copier coller d un objet range. Je souhaite copier l'objet range en question et le coller un certain nombre de fois à la suite mais je n'y parviens pas. Pouvez vous m'aider .
Voici le code que j ai commencer mais il me fait qu un seul copier/coller :
Code:

1 2 3 4 For i = 1 To icompte 'nombre de fois qu'il doit me répeter le coller oetatpersonnel.Copy oetatpersonnel.Offset(tcompte) Application.CutCopyMode = False Next i

Bonjour,

Avant "Next i", il faudrait incrémenter "tcompte" pour obtenir un nouveau déplacement.
exemple:

Code:

1
2
3
4
   For i = 1 To icompte 'nombre de fois qu'il doit me répeter le coller
        oetatpersonnel.Copy oetatpersonnel.Offset(tcompte)
        tcompte=tcompte + 1
    Next i

cela doit pouvoir s'écrire aussi comme ceci:

Code:

1
2
3
4
    For i = 1 To icompte 'nombre de fois qu'il doit me répeter le coller
        oetatpersonnel.Offset(tcompte) = oetatpersonnel
        tcompte = tcompte + 1
    Next i

Cdlt

Bonjour,
Beaucoup de choses à modifier dans ces lignes de code
Citation:
Code:

1 2 3 4 For i = 1 To icompte 'nombre de fois qu'il doit me répeter le coller oetatpersonnel.Copy oetatpersonnel.Offset(tcompte) Application.CutCopyMode = False Next i
Déjà en mettant la ligne de code Option Explicit en tête de module, tu aurais pu constater, le premier problème

En ligne 2 la variable tcompte qui devait sans doute être icompte vaut 0 donc le programme fait du "surplace" puisque le déplacement est de 0 ligne
ligne 2 toujours, ce n'est évidemment pas un déplacement de la valeur de icompte qui doit être effectué mais bien de icompte * par le nombre de lignes de la plage à copier
ligne 3, l'instruction Application.CutCopyMode = False ne sert à rien. Utile seulement avec le Copy/Paste

Voici donc une procédure qui fonctionne et qui recopie 5 fois à la suite la plage A1:C5 de la feuille nommée Feuil1
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub t() ' Déclaration et assignation des variables Const iCompte As Long = 5 Dim oEtatPersonnel As Range Dim i As Long Set oEtatPersonnel = ThisWorkbook.Worksheets("Feuil1").Range("A1:C5") ' Début For i = 1 To iCompte 'nombre de fois qu'il doit me répeter le coller With oEtatPersonnel .Copy Destination:=.Offset(i * .Rows.Count) End With Next i ' Fin Set oEtatPersonnel = Nothing End Sub
Petit conseil

Il est important d'avoir l'instruction Option Explicit en tête de module et pour que ce soit automatique, il suffit de cocher Déclaration des variables obligatoire de la boîte de dialogue Options (Outils/Options... de l'éditeur VBA)
Toujours déclarer ces variables
Essayer autant que possible d'avoir le début de chaque mot du nom d'une variable en majuscule (ce que l'on nomme le Camel Case)
A la place de i pour la variable de la boucle, j'aurais choisi Deplacement mais bon ce n'est pas le plus important mais c'est utile d'avoir des noms explicite pour les variables.

A lire éventuellement, Utiliser les variables en VBA Excel

[EDIT]
Bonjour ARTURO83 et désolé pour le télescopage de nos réponses. J'étais en train de rédiger ma réponse pendant que tu publiais la tienne sans doute

Bonjour merci pour cette réponse, je vous avais mis que la partie code qui m intéressais, voici mon code complet en cours d’écriture :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Private Sub Worksheet_Activate()
 
    Dim cnx As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rst As New ADODB.Recordset
    Dim resultat As Variant
    Dim oetatpersonnel As Range
    Dim icompte As Integer
    Dim tcompte As Integer
    Dim i As Integer
 
'creation de l'objet etatpersonnel
    Set oetatpersonnel = Range("EtatPersonnelEtatPersonnel")
 
 
'Création de la connexion
    cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Garage\Desktop\Formation_CIS_SEMUR\Formation_CIS_SEMUR.accdb;Persist Security Info=False;"
    Set cmd.ActiveConnection = cnx
 
'Création de la commande
    cmd.CommandType = adCmdText
    cmd.CommandText = "Select * From R_EtatPersonnel"
 
'Execution de la commande
    rst.CursorLocation = adUseClient
    rst.Open cmd, , adOpenStatic, adLockBatchOptimistic
 
'Compte le nombre d'enregistrement
    icompte = rst.RecordCount
    'Debug.Print (icompte)
 
'Parcour des enregistrement
    'Do Until rst.EOF
    resultat = rst
    rst.MoveNext
    'Debug.Print resultat("Matricule")
    'Loop
    rst.MoveFirst
 
'Affectation du résultat à une zone nommée
    Range("TitreEtatPersonnel") = resultat("Expr1")
    Range("MatriculeEtatPersonnel") = resultat("Matricule")
    Range("DateDeNaissanceEtatPersonnel") = resultat("DateDeNaissance")
    Range("AgeEtatPersonnel") = resultat("Age")
    Range("CommentaireEtatPersonnel") = resultat("LibelleObservation")
    Range("TelephoneEtatPersonnel") = resultat("Telephone")
    Range("EmailEtatPersonnel") = resultat("Email")
    Range("N°DeRueEtatPersonnel") = resultat("N° de rue")
    Range("RueEtatPersonnel") = resultat("Rue")
    Range("CodePostalEtatPersonnel") = resultat("Code Postal")
    Range("VilleEtatPersonnel") = resultat("Ville")
    Range("DateDIncorporationEtatPersonnel") = resultat("DateDIncorporation")
    Range("DateDEntreeCSEtatPersonnel") = resultat("DateDEntreeCS")
    Range("FonctionEtatPersonnel") = resultat("DernierDeDernierDeFonction")
    Range("DateDeLaVisiteMedicaleEtatPersonnel") = resultat("DateVisiteMedicale")
    Range("DateDuPermisAmbulanceEtatPersonnel") = resultat("DatePermisAmbulance")
    Range("DatePermisPLEtatPersonnel") = resultat("DatePermisPoidsLourd")
    Range("DateDeNominationEtatPersonnel") = resultat("DernierDeDateDeNomination")
 
'Création de l'etat en mode continu
    tcompte = Range("EtatPersonnelEtatPersonnel").Rows.Count
    'Debug.Print tcompte
 
    For i = 1 To icompte
    oetatpersonnel.Copy oetatpersonnel.Offset(tcompte)
    Application.CutCopyMode = False
    Next i
 
 'Fermeture du recordset
    rst.Close
 
'Initialisation des variables
    Set rst = Nothing
    Set cmd = Nothing
 
    resultat = ""
 
End Sub

03/09/2020, 10h52
Philippe Tulliez

Bonjour,
Je suppose que c'est donc résolu. Merci de modifier le statut de la discussion.
03/09/2020, 11h48
21vince

Super merci ça marche encore merci.:D