Macro excel si je recopie ligne de tel onglet

Résolu/Fermé

james405 Messages postés 154 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 10 juin 2014 - 16 avril 2010 à 11:28
james405 Messages postés 154 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 10 juin 2014 - 20 avril 2010 à 17:00

Bonjour à tous,

J'ai réalisé cette macro pour copier des lignes d'une feuille LOLO a la feuille 3 si le contenude la colonne 11=A4
2 questions :
- Comment transformer la macro pour qu'elle marche avec plusieurs onglets de départ pour coller toujours dans la feuil3

-Est il possible a la suite de la 1ère question quand tout s'affichera de distinguer par une ligne titre les lignes venant de tel ou tel onglet??

Sub ccl()

Sheets("Feuil3").Rows("7:200").Delete

Dim iR As Long
Dim iAV As Long
Dim R As Worksheet
Dim AV As Worksheet

Set R = Worksheets("LOLO")
Set AV = Worksheets("Feuil3")

iAV = 7

For iR = 7 To 200
If R.Cells(iR, 11).Value = Range("A1") Then
R.Range(iR & ":" & iR).Copy AV.Cells(iAV, 1)
iAV = iAV + 1
End If
Next
End Sub

Merci d'avance,

James

A voir également:

Macro excel si je recopie ligne de tel onglet
Aller à la ligne excel - Guide
Liste déroulante excel - Guide
Si et excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Site de vente en ligne particulier - Guide

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
16 avril 2010 à 12:18

Salut,
Tu peux modifier (par exemple) ton code comme ceci :

Sub ccl() 
Sheets("Feuil3").Rows("7:200").Delete 
Dim iR As Long 
Dim iAV As Long 
Dim R As String 
Dim AV As Worksheet 
R = InputBox("inscrire ici le nom de l'onglet à copier","Nom de la feuille")
Set AV = Worksheets("Feuil3") 
iAV = 7 
For iR = 7 To 200 
If Sheets(R).Cells(iR, 11).Value = Range("A1") Then 
Sheets(R).Range(iR & ":" & iR).Copy AV.Cells(iAV, 1) 
iAV = iAV + 1 
End If 
Next 
End Sub

Réponse 2 / 2

james405 Messages postés 154 Date d'inscription mercredi 27 janvier 2010 Statut Membre Dernière intervention 10 juin 2014
20 avril 2010 à 17:00

Ok ca marche merci!

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters