macro VBA

Question

bonjour

je souhaiterais faire une macro dans un fichier excel
sur une feuille, j'ai un planing avec diverses informations et je voudrait pouvoir copier les lignes qui sont en "solde" vers une autres feuilles qui me servirer d'archivage

Merci 

ptit wiwi

Genildf · Answer

A quoi ressemble ta ligne?
Qu es ce qui la différencie d'une ligne en solde ou non?

ptitwiwi · Answer

en faite c'est un tableau et chaque ligne représente une commande, et pour épuré ce tableau, je voudrais pouvoir enléver les lignes des commandes terminés.
j'ai une cellule par ligne ou je mets le mot solde 

ptit wiwi

Genildf · Answer

tu fait une boucle for pour tester chaque ligne de ton tablo

range ( colone ou solde est ecrit).select
première cellule.activate
  Set rngtrouve = Selection.Find(What:=SN, After:=ActiveCell)
                
        If rngtrouve Is Nothing Then
               'il n'y a rien
                        Else

For o = 1 To 10000
 
rngtrouve.Activate
rows(rngtrouve.row).select
selection.copy
Worksheets(2).Activate

Worksheets(2).Cells(o, 1).Activate

ActiveSheet.Paste
Worksheets(1).Activate
End If
range ( colone ou solde est ecrit).select
    Cells(rngtrouve.row, 4).Activate
Set rngtrouve = Selection.FindNext(After:=ActiveCell)
Next

voila ca copie vers une autre feuille
il y peut être des erreur mais l'idée est la

Genildf · Answer

Oups g fait une erreur :

range ( colone ou solde est ecrit).select
première cellule.activate
  Set rngtrouve = Selection.Find(What:="Solde", After:=ActiveCell)
                
        If rngtrouve Is Nothing Then
               'il n'y a rien
                        Else

For o = 1 To 10000
 
rngtrouve.Activate
rows(rngtrouve.row).select
selection.copy
Worksheets(2).Activate
 Worksheets(2).Cells(o, 1).Activate
 ActiveSheet.Paste
Worksheets(1).Activate
End If
range ( colone ou solde est ecrit).select
    Cells(rngtrouve.row, 4).Activate
Set rngtrouve = Selection.FindNext(After:=ActiveCell)
Next

voila ca copie vers une autre feuille
il y peut être des erreur mais l'idée est la

ptitwiwi · Answer

ca bloque au End If

ptit wiwi

Genildf · Answer

met le end if après le next et c'est bon normalement
il est possible que sa plante j'ai pas testé

Macro VBA

6 réponses

Votre réponse

Discussions similaires