Copier sur lignes visibles

Résolu/Fermé

Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018 - Modifié le 14 août 2017 à 14:36
Tuline - 25 août 2017 à 17:52

Bonjour,

J'ai écrit une macro pour copier et coller la valeur d'une cellule.
Elle ne fonctionne que sur la ligne 27 (la 1e valeur de i), je ne comprends pas ce que je dois changer.

Par ailleurs, j'aimerais qu'au final la macro ne prenne en considération que les lignes visibles de l'onglet "EXPORT" (afin de réduire le temps de fonctionnement)

Dim Nomarticle As String, i As Long, j As Long
  
  Worksheets("EXPORT").Activate
  Application.ScreenUpdating = False
  With Worksheets("QUOTATION")
    For i = 27 To 189
            Nomarticle = Range("D" & i)
            For j = 17 To 243
                If Worksheets("QUOTATION").Range("B" & j) = Nomarticle Then
                    Worksheets("EXPORT").Range("J" & i) = Worksheets("QUOTATION").Range("E" & j)
                Else
                    Worksheets("EXPORT").Range("J" & j) = "indiquer prix"
                End If
            Exit For
    
    Next j
    
    Next i
    
  End With
End Sub

Je vous remercie pour votre aide !!

A voir également:

Copier sur lignes visibles
Copier une vidéo youtube - Guide
Super copier - Télécharger - Gestion de fichiers
Copier texte pdf - Guide
Comment aller à la ligne sur excel - Guide
Copier disque dur - Guide

1 réponse

Réponse 1 / 1

fred
14 août 2017 à 16:03

Bonjour Tuline,

Je te propose ce code VBA :


Option Explicit

Sub nom_article()
  Dim NomArticle As String, i As Long, j As Long
  Worksheets("EXPORT").Activate
  Application.ScreenUpdating = False
  With Worksheets("QUOTATION")
    For i = 27 To 189
      NomArticle = Range("D" & i)
      For j = 17 To 243
        If .Range("B" & j) = NomArticle Then
          Worksheets("EXPORT").Range("J" & j) = .Range("E" & i)
        Else
          Worksheets("EXPORT").Range("J" & j) = "indiquer prix"
        End If
        Exit For
      Next j
    Next i
  End With
End Sub

Cordialement

Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018
14 août 2017 à 16:12

Bonjour,
cela ne fonctionne pas :/
Même pour la ligne 27 qui fonctionnait précédemment
Bien à vous

Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018
14 août 2017 à 16:13

Je ne vois pas la différence avec mon code précédent, sinon le mode Explicit

fred > Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018
Modifié le 14 août 2017 à 16:25

Peux-tu joindre ton fichier (sans données confidentielles) ?
Tu peux aller sur le site mon-partage.fr pour y déposer ton fichier ;
après clic sur le bouton Uploader, attends un peu, puis tu auras
un lien de téléchargement à copier / coller dans ton prochain
message sur ce forum.

Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018
14 août 2017 à 17:21

Voici le fichier en question :
https://mon-partage.fr/f/Fmjik3tr/

votre macro et la mienne sont dans le module 9

j'ai laissé les cases colorés pour montrer l'ampleur du fichier, tous les onglets non dépendant de cette macro ont été supprimé.

Le but étant dans l'onglet export de filtré les lignes à 0 (à la main, pas via la macro)
et d'afficher les prix uniquement pour les lignes contenant une quantité

Je vous remercie !

fred > Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018
14 août 2017 à 19:54

Sur tes 9 modules, 7 sont vides ou contiennent uniquement : « Option Explicit »
=> j'ai supprimé ces 7 modules inutiles ; j'ai renommé Module4 en Module1 et
Module9 en Module2 ; tu as donc : Module1 et Module2.

Dans Module2, tu avais mis 2× la ligne « Option Explicit » : non, c'est une fois
seulement par module, au début du module.

Fichier Excel 2007 : https://mon-partage.fr/f/mw8TaCun/

Tu peux me demander une adaptation si besoin.
Merci de me donner ton avis.

Discussions similaires

Dessiner avec son clavier et avec des lettres

Statut « en ligne » alors que non

Afficher toutes les lignes masquées excel

On me voit connecté sur facebook alors que je n'y suis pas

Discussions similaires

Newsletters