Trouver la1ère ligne à remplir par Autofill

[ExcelVBA]

Bonjour

Je cherche à copier-coller en VBA des blocs à l'aide de la fonction Autofill sur la dernière cellule vide de ma colonne mais j'ai un soucis avec la destination dans mon code.

Mon bout de code est le suivant :
Worksheets("Liste").Select
Set Societe = Range("A2:A" & nbLignes + 1)
Societe.AutoFill Destination:=Range("A" & Rows.Count, 1).End(xlDown)(2)

J'vois pas trop comment j'peux faire.

Si quelqu'un a une idée.

Par avance merci.

 

[danielco]

Bonjour,

Que veux-tu recopier ?

Daniel

 

[ExcelVBA]

Bonjour,

chaque plage de cellule, par exemple :
de A2 à A6 serait collé à partir de la 1ere cellule disponible c'est à dire A7
de B2 à B6 serait collé à partir de B7
de C2 à C6 serait collé à partir de C7...

Ulrich

 

[danielco]

Essaie :

  Dim Plage As Range
  Set Plage = Range("A2:H" & [A:H].Find("*", , , , xlByRows, xlPrevious).Row)
  Plage.Copy Cells(Plage.Row + Plage.Rows.Count, 1)

Daniel

 

[ExcelVBA]

Super c'est presque ca !
J'ai juste la colonne B qui doit être différente sur chacune de mes copies de mes plages.
La valeur dans ma colonne B sera celle que je vais chercher dans la cellule de ma feuille "Chantier" ( colonne A)

For i = 0 To nbChantier

'Copie du code chantier
Worksheets("Chantiers").Select
Chantier = Range("A" & i + 1)

'Copie des lignes de la société et Chantiers
'Pour les 1ères lignes
If i = 0 Then
Worksheets("Liste").Select
For j = 1 To nbLignes
Range("A" & j + 1) = Societe
Range("B" & j + 1) = Chantier
Next j
End If

'Pour les lignes suivantes
If i >= 1 Then

'Copie du bloc
Worksheets("Liste").Select
Set Plage = Range("A2:H" & [A:H].Find("*", , , , xlByRows, xlPrevious).Row)
Plage.Copy Cells(Plage.Row + Plage.Rows.Count, 1)

 

[danielco]

Donc c'est correct ?

Daniel

 

[ExcelVBA]

Non parce que ma colonne B est différentes pour chaque bloc qui doit être copié

 

[danielco]

C'est quoi, le code que tu as mis dans ta réponse, alors ? Est-ce que tu peux poster un classeur avec ce qu'il doit y avoir en colonne B ?

Daniel

 

[ExcelVBA]

C'est ce qui rempli les première lignes à l'aide de la feuille Chantier dans lequel je vais chercher ma valeur :

04MAT	BEG804	403698	403699	POMPE IMMERGEE FS6110 - AFEC - AF 183629	01/08/2019	31/12/2030	TRUE
04MAT	BEG804	40B048	40B048	CAMION BENNE 4 X 2 VOLVO FMX11 R370-VME-YV2X1E1A0KB912257	01/08/2019	31/12/2030	TRUE
04MAT	BEG804	040B007	040B007	PELLE HYD. / CH. VOLVO EC 380D-VME-271773	01/08/2019	31/12/2030	TRUE
04MAT	BEG804	40B009	40B009	POSTE A SOUDER AUTONOME -GENSET-2924897	01/08/2019	31/12/2030	TRUE
04MAT	BEG804	040B023	040B023	PELLE HYD. / PN. VOLVO EW205D-VME-VCEW205DL00280494	01/08/2019	31/12/2030	TRUE
04MAT	BEG804	040B028	040B028	AUTOBETONNIERE FIORI DBX35-FIORI-BX14M00363	01/08/2019	31/12/2030	TRUE
04MAT	BEG805	40B048	40B048	CAMION BENNE 4 X 2 VOLVO FMX11 R370-VME-YV2X1E1A0KB912257	01/08/2019	31/12/2030	TRUE
04MAT	BEG805	040B007	040B007	PELLE HYD. / CH. VOLVO EC 380D-VME-271773	01/08/2019	31/12/2030	TRUE
04MAT	BEG805	40B009	40B009	POSTE A SOUDER AUTONOME -GENSET-2924897	01/08/2019	31/12/2030	TRUE
04MAT	BEG805	040B023	040B023	PELLE HYD. / PN. VOLVO EW205D-VME-VCEW205DL00280494	01/08/2019	31/12/2030	TRUE
04MAT	BEG805	040B028	040B028	AUTOBETONNIERE FIORI DBX35-FIORI-BX14M00363	01/08/2019	31/12/2030	TRUE
04MAT	BG501G	40B048	40B048	CAMION BENNE 4 X 2 VOLVO FMX11 R370-VME-YV2X1E1A0KB912257	01/08/2019	31/12/2030	TRUE
04MAT	BG501G	040B007	040B007	PELLE HYD. / CH. VOLVO EC 380D-VME-271773	01/08/2019	31/12/2030	TRUE
04MAT	BG501G	40B009	40B009	POSTE A SOUDER AUTONOME -GENSET-2924897	01/08/2019	31/12/2030	TRUE
04MAT	BG501G	040B023	040B023	PELLE HYD. / PN. VOLVO EW205D-VME-VCEW205DL00280494	01/08/2019	31/12/2030	TRUE
04MAT	BG501G	040B028	040B028	AUTOBETONNIERE FIORI DBX35-FIORI-BX14M00363	01/08/2019	31/12/2030	TRUE

 

[ExcelVBA]

Avec le fichier

 

[danielco]

Je ne comprends pas. Est-ce que tu peux expliquer avec deux ou trois exemples ?

Daniel

 

[ExcelVBA]

Au départ, j'ai ce tableau dans ma feuille "Liste" :

Ensuite dans le code je vais lire la valeur A1 et B1 dans ma feuille "Chantier" :

Que je colle dans les colonnes A et B :

Ensuite je dois utiliser ce même bloc mais avec la colonne B qui change pour chaque bloc. Ce sera la cellule A2 (BEG805) de ma feuille chantier pour obtenir :

Ensuite je dois aller chercher la valeur suivante de la cellule A2 (BG501G) de ma feuille chantier pour obtenir :

 

[danielco]

Essaie:

  Dim Plage As Range, Res As String
  Set Plage = Range("A2:H" & [A:H].Find("*", , , , xlByRows, xlPrevious).Row)
  Res = Plage.Resize(, 1).Offset(, 1)(Plage.Rows.Count)
  Res = Application.Index([Chantiers!A:A], Application.Match(Res, [Chantiers!A:A], 0) + 1)
  Plage.Copy Cells(Plage.Row + Plage.Rows.Count, 1)
  Cells(Plage.Row + Plage.Rows.Count, 2).Resize(Plage.Rows.Count) = Res

Daniel

 

[ExcelVBA]

J'ai pas tout compris au code mais on y est presque, il m'a retourné ce résultat, je pense que c'est un problème avec la boucle. Il a cumulé les 2 (BEG804 et BEG805) pour remplir la 3ème occurrence (BG501G) :

au final il m'a renseigné 655361 lignes.

J'ai ce code :
For i = 0 To nbChantier

'Copie du code chantier
Worksheets("Chantiers").Select
Chantier = Range("A" & i + 1)

'Copie des lignes de la société et Chantiers
'Pour les 1ères lignes
If i = 0 Then
Worksheets("Liste").Select
For j = 1 To nbLignes
Range("A" & j + 1) = Societe
Range("B" & j + 1) = Chantier
Next j
End If

'Pour les lignes suivantes
If i >= 1 Then

Worksheets("Liste").Select

'Copie du bloc
Set Plage = Range("A2:H" & [A:H].Find("*", , , , xlByRows, xlPrevious).Row)
Plage.Copy Cells(Plage.Row + Plage.Rows.Count, 1)

Res = Plage.Resize(, 1).Offset(, 1)(Plage.Rows.Count)
Res = Application.Index([Chantiers!A:A], Application.Match(Res, [Chantiers!A:A], 0) + 1)

Plage.Copy Cells(Plage.Row + Plage.Rows.Count, 1)
Cells(Plage.Row + Plage.Rows.Count, 2).Resize(Plage.Rows.Count) = Res

End If

Next i

End Sub

 

[ExcelVBA]

En modifiant la boucle, j'ai pu obtenir le résultat souhaité .

Merci Danielco