selection avec criteres et copie de cellules en vba
2 réponses
pierref
Bonjour,
J'ai une feuille excel avec des colonnes de données.
du genre : nom, prenom, objet ...
En vba, je souhaiterai selectionner toutes les lignes ou le nom est "MR
untel".
Puis les copier et les coller dans une autre feuille.
Pourriez vous m'aider a créer ce code, je manque un peu de pratique...
(si possible en utilisant range(cells(x,y),cells(x,y)) au lieu de
range(A1:B10)...)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Pierre,
voici un exemple,
Sub Filtrer() Dim CritèreFiltre As String CritèreFiltre = InputBox("Critère du filtre, colonne Nom (1)") Range("A1").AutoFilter Range("A1").AutoFilter Field:=1, Criteria1:="=" & CritèreFiltre Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste End Sub
isabelle
Bonjour,
J'ai une feuille excel avec des colonnes de données. du genre : nom, prenom, objet ...
En vba, je souhaiterai selectionner toutes les lignes ou le nom est "MR untel". Puis les copier et les coller dans une autre feuille.
Pourriez vous m'aider a créer ce code, je manque un peu de pratique... (si possible en utilisant range(cells(x,y),cells(x,y)) au lieu de range(A1:B10)...)
Merci beaucoup
Pierref
bonjour Pierre,
voici un exemple,
Sub Filtrer()
Dim CritèreFiltre As String
CritèreFiltre = InputBox("Critère du filtre, colonne Nom (1)")
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=1, Criteria1:="=" & CritèreFiltre
Range("A1").CurrentRegion.Copy
Sheets.Add
ActiveSheet.Paste
End Sub
isabelle
Bonjour,
J'ai une feuille excel avec des colonnes de données.
du genre : nom, prenom, objet ...
En vba, je souhaiterai selectionner toutes les lignes ou le nom est "MR
untel".
Puis les copier et les coller dans une autre feuille.
Pourriez vous m'aider a créer ce code, je manque un peu de pratique...
(si possible en utilisant range(cells(x,y),cells(x,y)) au lieu de
range(A1:B10)...)
Sub Filtrer() Dim CritèreFiltre As String CritèreFiltre = InputBox("Critère du filtre, colonne Nom (1)") Range("A1").AutoFilter Range("A1").AutoFilter Field:=1, Criteria1:="=" & CritèreFiltre Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste End Sub
isabelle
Bonjour,
J'ai une feuille excel avec des colonnes de données. du genre : nom, prenom, objet ...
En vba, je souhaiterai selectionner toutes les lignes ou le nom est "MR untel". Puis les copier et les coller dans une autre feuille.
Pourriez vous m'aider a créer ce code, je manque un peu de pratique... (si possible en utilisant range(cells(x,y),cells(x,y)) au lieu de range(A1:B10)...)
Merci beaucoup
Pierref
pierref
Merci beaucoup.
Bonne journée
Pierref
bonjour Pierre,
voici un exemple,
Sub Filtrer() Dim CritèreFiltre As String CritèreFiltre = InputBox("Critère du filtre, colonne Nom (1)") Range("A1").AutoFilter Range("A1").AutoFilter Field:=1, Criteria1:="=" & CritèreFiltre Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste End Sub
isabelle
Bonjour,
J'ai une feuille excel avec des colonnes de données. du genre : nom, prenom, objet ...
En vba, je souhaiterai selectionner toutes les lignes ou le nom est "MR untel". Puis les copier et les coller dans une autre feuille.
Pourriez vous m'aider a créer ce code, je manque un peu de pratique... (si possible en utilisant range(cells(x,y),cells(x,y)) au lieu de range(A1:B10)...)
Merci beaucoup
Pierref
Merci beaucoup.
Bonne journée
Pierref
bonjour Pierre,
voici un exemple,
Sub Filtrer()
Dim CritèreFiltre As String
CritèreFiltre = InputBox("Critère du filtre, colonne Nom (1)")
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=1, Criteria1:="=" & CritèreFiltre
Range("A1").CurrentRegion.Copy
Sheets.Add
ActiveSheet.Paste
End Sub
isabelle
Bonjour,
J'ai une feuille excel avec des colonnes de données.
du genre : nom, prenom, objet ...
En vba, je souhaiterai selectionner toutes les lignes ou le nom est "MR
untel".
Puis les copier et les coller dans une autre feuille.
Pourriez vous m'aider a créer ce code, je manque un peu de pratique...
(si possible en utilisant range(cells(x,y),cells(x,y)) au lieu de
range(A1:B10)...)
Sub Filtrer() Dim CritèreFiltre As String CritèreFiltre = InputBox("Critère du filtre, colonne Nom (1)") Range("A1").AutoFilter Range("A1").AutoFilter Field:=1, Criteria1:="=" & CritèreFiltre Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste End Sub
isabelle
Bonjour,
J'ai une feuille excel avec des colonnes de données. du genre : nom, prenom, objet ...
En vba, je souhaiterai selectionner toutes les lignes ou le nom est "MR untel". Puis les copier et les coller dans une autre feuille.
Pourriez vous m'aider a créer ce code, je manque un peu de pratique... (si possible en utilisant range(cells(x,y),cells(x,y)) au lieu de range(A1:B10)...)