Probleme macro ou formules excel
Fermé
slyjean
Messages postés
1
Date d'inscription
lundi 6 novembre 2006
Statut
Membre
Dernière intervention
6 novembre 2006
-
6 nov. 2006 à 10:18
Nico_OPI Messages postés 6 Date d'inscription lundi 9 octobre 2006 Statut Membre Dernière intervention 9 janvier 2007 - 3 janv. 2007 à 13:30
Nico_OPI Messages postés 6 Date d'inscription lundi 9 octobre 2006 Statut Membre Dernière intervention 9 janvier 2007 - 3 janv. 2007 à 13:30
A voir également:
- Probleme macro ou formules excel
- Formule excel - Guide
- Liste déroulante excel - Guide
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Déplacer une colonne excel - Guide
- Si ou excel - Guide
1 réponse
Nico_OPI
Messages postés
6
Date d'inscription
lundi 9 octobre 2006
Statut
Membre
Dernière intervention
9 janvier 2007
3
3 janv. 2007 à 13:30
3 janv. 2007 à 13:30
Salut,
Essai avec cette macro :
Attention à remplacer les noms des feuilles par ceux de ton classeur.
"Nom_de_l'onglet" : onglet de destination
"Nom_onglet_de_donnée" : onglet avec tes donnes
Sub Macro1()
'
Application.ScreenUpdating = False
Sheets("Nom_de_l'onglet").Select 'Suppression des données existantes
Cells.Select
Selection.ClearContents
Sheets("Nom_onglet_de_donnée").Select
J = 1
I = 1 'Si pas de ligne d'entête sinon I = 2
Do While Cells(I, 1).Value <> ""
If Cells(I, 3).Value > 0 Then
Rows("" & I & ":" & I & "").Select
Selection.Copy
Sheets("Nom_de_l'onglet").Select
Cells(J, 1).Select
ActiveSheet.Paste
J = J + 1
End If
I = I + 1
Sheets("Nom_onglet_de_donnée").Select
Loop
End Sub
Essai avec cette macro :
Attention à remplacer les noms des feuilles par ceux de ton classeur.
"Nom_de_l'onglet" : onglet de destination
"Nom_onglet_de_donnée" : onglet avec tes donnes
Sub Macro1()
'
Application.ScreenUpdating = False
Sheets("Nom_de_l'onglet").Select 'Suppression des données existantes
Cells.Select
Selection.ClearContents
Sheets("Nom_onglet_de_donnée").Select
J = 1
I = 1 'Si pas de ligne d'entête sinon I = 2
Do While Cells(I, 1).Value <> ""
If Cells(I, 3).Value > 0 Then
Rows("" & I & ":" & I & "").Select
Selection.Copy
Sheets("Nom_de_l'onglet").Select
Cells(J, 1).Select
ActiveSheet.Paste
J = J + 1
End If
I = I + 1
Sheets("Nom_onglet_de_donnée").Select
Loop
End Sub