Macro
Résolu
louisamiel
Messages postés
67
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
6 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
Le code ne s'exécute pas, ou bien ne fait pas ce que tu souhaites?
bonjour Louisamiel, yg_be
Ton code parait bien compliqué !
si j'ai compris
tu veux supprimer les lignes répondant à tes 3 conditions dans "suivi sof"et les transférer dans "archives" ?
si oui
combien de lignes as tu d'utilisées dans "suivi sof"
combien de colonnes : A à.... ?
ou mieux
Dans l’attente
Michel
Ton code parait bien compliqué !
si j'ai compris
tu veux supprimer les lignes répondant à tes 3 conditions dans "suivi sof"et les transférer dans "archives" ?
si oui
combien de lignes as tu d'utilisées dans "suivi sof"
combien de colonnes : A à.... ?
ou mieux
Mettre un extrait du classeur ( 50 lignes environ)sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci dans votre message
Dans l’attente
Michel
Pas mal de lignes: c'est à dire ?
100, 1000,10000.... (dans suivi sof)
le nombre de lignes déterminera une méthode traitement ou une autre
Michel
100, 1000,10000.... (dans suivi sof)
le nombre de lignes déterminera une méthode traitement ou une autre
Michel
Bonjour,
Juste une remarque (sauf erreur de ma part):
Y a un probleme entre les tests et les colonnes a tester
Juste une remarque (sauf erreur de ma part):
Y a un probleme entre les tests et les colonnes a tester
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
re,
merci F89 pour la remarque
en attendant une dernière vérif
je repasse en fin d'apres midi
Michel
merci F89 pour la remarque
en attendant une dernière vérif
Option Explicit
'-------------------------------------------------------------------
Sub archiver_si()
Dim Msg As String, Style, Title As String, Response As Byte, help, ctxt
Dim Derlig As Integer, Nbre As Integer, Lig As Integer, Cptr As Integer, Transfer
Dim Ligvid As Integer
Application.ScreenUpdating = False
'préparation
Msg = "Attention ce programme va archiver automatiquement les lignes soldées, Souhaitez-vous continuer?" ' Définit le message.
Style = vbYesNo + vbInformation + vbDefaultButton2 ' Définit les boutons.
Title = "Archivage des lignes soldées" ' Définit le titre.
Response = MsgBox(Msg, Style, Title, help, ctxt)
If Response = vbNo Then Exit Sub
With Sheets("suivi sof")
'crée une colonne furtive permattant de tester les conditions
Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
.Range("AA3:AA" & Derlig).FormulaLocal = "=(ESTVIDE(H3))*(L3=""soldé"")*(M3=""soldé"")"
'Nbre lignes à transférer
Nbre = Application.CountIf(.Columns("AA"), 1)
'prise en compte ligne à tranf&rer
For Cptr = 1 To Nbre
Lig = .Columns("AA").Find(what:=1, after:=.Range("AA2"), LookIn:=xlValues).Row
Transfer = .Range(.Cells(Lig, "A"), .Cells(Lig, "Z"))
'report en archives
With Sheets("Archives")
Ligvid = .Columns("A").Find(what:="", after:=.Range("A2")).Row
With .Cells(Ligvid, "A").Resize(1, 26)
.Value = Transfer
.Borders.Weight = xlThin
End With
End With
'détruit la ligne sur "suivi sof"
.Rows(Lig).Delete
Next
'détruit la colonne de test
Columns("AA").Clear
End With
MsgBox "Archivage terminé"
End Sub
je repasse en fin d'apres midi
Michel
Bonjour
dans ta colonne J , TOUTES les lignes renvoie X, certaines ont été camouflées en écrivant rouge sur fond rouge : CHAPEAU !!!
comme toutes les lignes renvoie X, l'archivage ne peut pas se faire
la formule est à refaire et c'est ton problème.
dans ta colonne J , TOUTES les lignes renvoie X, certaines ont été camouflées en écrivant rouge sur fond rouge : CHAPEAU !!!
comme toutes les lignes renvoie X, l'archivage ne peut pas se faire
la formule est à refaire et c'est ton problème.
NON toutes lignes renvoient pas au X , cest juste un remplissage
il y a bien certaines lignes qui remplissent les 3 conditions .
J accepete la critique sans pb car je suis pas experte d ou mon passage sur le site, mais on peut tres bien faire les remarques en etant " gentil"
enfin bref merci quand meme
il y a bien certaines lignes qui remplissent les 3 conditions .
J accepete la critique sans pb car je suis pas experte d ou mon passage sur le site, mais on peut tres bien faire les remarques en etant " gentil"
enfin bref merci quand meme
J'ai regardé la copie d'écran du message #18 de f894009.
En H2, la formule utilise ces 3 colonnes : 8, 10, 11 = H, J, K
Ne serait-ce pas plutôt : 10, 12, 13 = J, L, M ?
Si oui, à corriger ; cette correction étant peut-être à faire
pour toute la ligne 2 ? Et peut-être alors que la macro
marchera ? Si je me suis trompé, attention à bien tout
remettre comme c'était avant ! Le plus simple est de
faire l'essai sur une copie du fichier.
il s arrete au message box " position de la derniere ligne" plus rien apres.
et elle s arrete car pour la mcro c est fini.
ca doit etre soit les conditions ou les regles du compteur , enfin je pense..