Contenu récent par YohanSC

  1. Y

    XL 2019 copier/coller colonne vers ligne

    oui , il s'agit d'un doublon. J'ai fait une erreur car ce n'est pas le même sujet de post. Merci
  2. Y

    XL 2021 RechercheV avec 4 critères (vba)

    Quelle rapidité 😆 Merci beaucoup
  3. Y

    XL 2019 copier/coller colonne vers ligne

    Je suis occupé d'avancer dans le classeur pour la sauvegarde et je coince dans le copier/coller. Pourquoi? Car je copie des valeurs en colonne pour les mettre en ligne à la suite en colonne "A". Je souhaiterais conserver la mise en page mais pas possible de copier/coller ""colonnes"" vers...
  4. Y

    XL 2021 RechercheV avec 4 critères (vba)

    Je suis occupé d'avancer dans le classeur pour la sauvegarde et je coince dans le copier/coller. Pourquoi? Car je copie des valeurs en colonne pour les mettre en ligne à la suite en colonne "A". Je souhaiterais conserver la mise en page mais pas possible de copier/coller ""colonnes"" vers...
  5. Y

    XL 2021 RechercheV avec 4 critères (vba)

    Merci pour ton retour aussi. Sorry pour le délai ☺️
  6. Y

    XL 2021 RechercheV avec 4 critères (vba)

    merci beaucoup ! La fonction marche parfaitement !:)
  7. Y

    XL 2021 RechercheV avec 4 critères (vba)

    Bonjour Sylvanu, Voici le fichier en pièce jointe, ce sera en effet nettement plus simple. Bonne journée,
  8. Y

    XL 2021 RechercheV avec 4 critères (vba)

    Bonjour, J'ai un problème de compréhension sur une écriture VBA pour rechercher sur base de plusieurs critères . Est-ce que je dois utiliser une autre méthode que rechercheV? Voici le code qui fonctionne avec une variable mais j'aimerais afficher la valeur sur base de 4 variables et dès qu'il...
  9. Y

    XL 2019 copier/coller sous conditions boucle?

    For i = 1 To 10 If wsCopy.Range("g" & i + 100) <> "0" Then lDestLastRow = wsDestT.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row wsCopy.Range("A" & i + 100, "K" & i + 100).Copy wsDestT.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats End If Next
  10. Y

    XL 2019 copier/coller sous conditions boucle?

    Bonjour à tous, J'aimerais executer un copiè/collé en fonction de la collone G dans une plage définie. Est-ce qu'avec la fonction For each cela est possible?ou Boucle? lDestLastRow = wsDestT.Cells(wsDest.Rows.Count, "B").End(xlUp).Offset(1).Row wsCopy.Range("A101:K110").Copy...
  11. Y

    XL 2019 copier/coller en valeur

    Super merci 😁
  12. Y

    XL 2019 copier/coller en valeur

    Bonjour, Une question par rapport à ce code, je souhaiterais copier coller en valeur mais je ne sais comment... avec .value ou Pastespecial? Set wsCopy = Workbooks("ClasseurA.xlsm").Worksheets("Suivi prod") Set wsDest = Workbooks("CalsseurB.xlsx").Worksheets("Données") lDestLastRow =...
  13. Y

    XL 2019 copier coller une ligne de classeur A à classeur B

    Ah OK super merci cela fonctionne. lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row wsCopy.Range("A100:I100").Copy _ wsDest.Range("A" & lDestLastRow) En plus , je ne suis pas obligé de copier toute la ligne en fait. Cependant encore une question : lors du collage...
  14. Y

    XL 2019 copier coller une ligne de classeur A à classeur B

    Bonjour, J'ai exploité un partie de code sur le forum mais je ne comprends pas tout de ce code. Le morceau de code qui coince se trouve dans la copie d'une ligne située à la 100éme ligne du classeurA à copier sur la feuille "Données" du classeurB à la dernière ligne vide. Dim wsCopy As...
  15. Y

    XL 2019 Enregistrer un classeur en supprimant une formule

    Re, J'ai quand même creusé. ton code fonctionne depuis le début mais ma feuille est protégée donc j'ai rajouté : ActiveSheet.Unprotect ("test") .Sheets("Suivi prod").Range("D3:F3").Value = .Sheets("Suivi prod").Range("D3:F3").Value Merci pour l'aide
Voir plus