Contenu récent par ExcelVBA

Bonjour Sur un tableau, lorsque j'ai plusieurs lignes (partir de 2), la formule suivante fonctionne nickel : Range("E2").Select nbLignes = Range("E2", Selection.End(xlDown)).Cells.Count Mais si je n'ai qu'une ligne, ma variable nbLigne me ramène 0, et ma plante mon script Avez vous une idée ...

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

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...

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...

Avec le fichier

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...

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

Super c'est presque ca ! :D 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...

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

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)...