Probleme macro ou formules excel
slyjean
Messages postés
1
Statut
Membre
-
Nico_OPI Messages postés 6 Statut Membre -
Nico_OPI Messages postés 6 Statut Membre -
Bonjour,
je rencontre quelques problemes avec excel, j ai un classeur avec tout mes patients, ce qu il me doivent ou non,
j aimerai extraire de ce classeur, un onglet me permettant de voir ceux qui me doivent de l'argent uniquement, (restant dû >0).
sur la colonne A, j ai le nom et prenom.
la colonne B , le numero FSE, que je souhaiterais garder dans le nouvel onglet.
la colonne C, le restant dû.
Quelqu'un aurait il une idée de la macro ou de la formule? J 'essaie avec la fonction logique SI mais ej m'en sort pas.
merci beaucoup de votre aide
je rencontre quelques problemes avec excel, j ai un classeur avec tout mes patients, ce qu il me doivent ou non,
j aimerai extraire de ce classeur, un onglet me permettant de voir ceux qui me doivent de l'argent uniquement, (restant dû >0).
sur la colonne A, j ai le nom et prenom.
la colonne B , le numero FSE, que je souhaiterais garder dans le nouvel onglet.
la colonne C, le restant dû.
Quelqu'un aurait il une idée de la macro ou de la formule? J 'essaie avec la fonction logique SI mais ej m'en sort pas.
merci beaucoup de votre aide
A voir également:
- Probleme macro ou formules excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel si ou - Guide
- Liste déroulante excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Word et excel gratuit - Guide
1 réponse
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