Résultats de la recherche

  1. A

    Copy/paste de range (valeur)

    Merci beaucoup cela fonctionne !!!! Super forum !
  2. A

    Copy/paste de range (valeur)

    Bonjour Robert, Merci pour votre réponse. Je viens d'essayer avec votre code, et j'ai un bug au niveau du "Set OD = ThisWorkbook". Sub Convert() Dim Fichier As Variant Dim CS As Workbook Dim CD As Workbook Dim OS As Worksheet Dim OD As Worksheet Application.ScreenUpdating = False...
  3. A

    Copy/paste de range (valeur)

    Bonjour à tous, Une fois de plus je viens vers vous pour un petit problème que je rencontre dans une macro. J'aimerais copier/coller des ranges, mais uniquement les valeurs (pour ne pas modifier les mises en forme conditionnelles de la destination). Pour ce faire j'ai tenté ce code, mais un...
  4. A

    Mise en forme par macro (colonne à ligne)

    Merci c'est vraiment top !!
  5. A

    Mise en forme par macro (colonne à ligne)

    Merci Pierrejean c'est mieux en effet. Cependant je ne sais pas pourquoi mais la plupart des classifications apparaissent deux fois sur la ligne. Exemple avec la deuxième entrée : 318-317-360F-335-411-317-360F-335-411 Sans cela ce serait parfait. =)
  6. A

    Mise en forme par macro (colonne à ligne)

    Merci PierreJean, cependant avec cette macro, on ne conserve pas que les classifications "GHS_EU". En effet pour chaque entrée (numéro de spec) il ne faudrait garder que les classifications porvenant du GHS_EU et non pas GHS_RU ou GHS_TR. :/
  7. A

    Mise en forme par macro (colonne à ligne)

    Je me permet de solliciter une nouvelle fois votre aide pour le même travail, mais avec un filtre en plus qui me pose problème. Dans le fichier exemple 2 j'ai une colonne en plus avec des noms de source...Or je n'aimerai conserver que les classifications "GHS_EU" our les mettre les une à la...
  8. A

    Mise en forme par macro (colonne à ligne)

    Bonjour, Merci pour votre aide ! vgendron, un message apparaît lors de l’exécution de la macro "L'indice n'appartient pas à la sélection" à ce niveau là : TabFinal(indL, indC) = TabInit(i, j) Pierrejean, ça fonctionne nickel ! Merci beaucoup
  9. A

    Mise en forme par macro (colonne à ligne)

    Bonjour le forum, Je me permet de solliciter une nouvelle fois votre aide car j'aurais bien besoin d'un coup de pouce pour une action que j'aimera automatiser dans Excel. (Voir fichier Exemple). Dans cet exemple, j'ai différentes entrées identifiées par un numéro en colonne A. Pour chacune de...
  10. A

    Macro lente suppression de ligne sous conditions

    Je viens de faire le test sur 15000 lignes et pas de bug =)
  11. A

    Macro lente suppression de ligne sous conditions

    Vous êtes géniaux ! =)
  12. A

    Macro lente suppression de ligne sous conditions

    Bonjour, Merci à vous deux pour votre réponse rapide =). La macro de vgendron est vraiment très rapide ! C'est top ! Par contre excel affiche le message "Voulez vous supprimer la ligne" et il faut cliquer sur "Oui". Est-ce possible de ne pas afficher ce message ? En tout cas merci beaucoup.
  13. A

    Macro lente suppression de ligne sous conditions

    Bonjour à tous, J'ai cherché sur le forum une macro permettant de supprimer des lignes si une cellule contient une certaine valeur. Je suis tombé sur un fil proposant ce code : Sub Filter() Dim i As Long With Sheets("DATA") For i = Range("U20000").End(xlUp).Row To 2 Step -1 If Cells(i, 21)...
  14. A

    La méthode select de la classe range a échoué

    Bonjour a tous, Je me permet de solliciter votre aide sur une macro qui me pose problème. Voici le code Sub Importe() Application.ScreenUpdating = False Dim Fichier As Variant 'Recherche du fichier Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*") If Fichier <> False...
  15. A

    Macro lente : remplacer vide par formule

    Merci beaucoup c'est vrai super !
  16. A

    Macro lente : remplacer vide par formule

    Merci beaucoup !! La seconde proposition est parfaite !:) Super forum
  17. A

    Macro lente : remplacer vide par formule

    J'ai essayé ta dernière proposition Lone-wolf et pareil, ça prend beaucoup de temps :/ Sub VPcleaning() ' ' Sheets("Detailed Assessment").Select Dim I As Long With Sheets("Detailed Assessment") .Activate For I = 6 To 505 If .Cells(I, "S") = vbNullString Then .Cells(I, "S") =...
  18. A

    Macro lente : remplacer vide par formule

    Après avoir cherché un peu il semblerait que mes cellules ne soient pas vraiment vide mais contiennent du texte ""...même si rien ne s'affiche dans la barre de formule lorsque je sélectionne une cellule apparemment vide. Cela vient probablement du fait que j'ai une formule de ce type...
  19. A

    Macro lente : remplacer vide par formule

    Merci Job75 pour ta réponse. Avec ce code la macro fonctionne superbement bien. Le seul petit hic, c'est que j'ai l'impression qu'il ne reconnait pas les cellules vides. Par défaut rien ne se passe, par contre si je sélectionne des cellules vides dans mon onglet et que je clic sur "Suppr", alors...
  20. A

    Macro lente : remplacer vide par formule

    J'ai suivi ton conseil, cela fonctionne mais la macro est vraiment super lente....avec 450 cellules de la plage vides, la macro a tournée 3 minutes. N'y a t'il pas un moyen de faire comme dans ta première approche, mais en définissant une plage comme cela Range(Premiere cellule de la...