Copier sur lignes visibles
Résolu
Tuline
Messages postés
60
Statut
Membre
-
Tuline -
Tuline -
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)
Je vous remercie pour votre aide !!
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
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Historique copier coller - Guide
- Copier-coller - Accueil - Informatique
- Copier disque dur - Guide
1 réponse
Bonjour Tuline,
Je te propose ce code VBA :
Cordialement
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
cela ne fonctionne pas :/
Même pour la ligne 27 qui fonctionnait précédemment
Bien à vous
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.
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 !
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.