[Déplacé VB6 --> VBA] Excel Copier coller avec une macro sous condition [Résolu]
A voir également:
- [déplacé vb6 --> vba] excel copier coller avec une macro sous condition
- VBA excel: copier-coller avec incrémentation ✓ - Forum - Visual Basic 6
- [déplacé .Net -> VBA] Excel 2010 - copier-coller d'une feuille d'un dossier sur ✓ - Forum - Visual Basic 6
- [déplacé VB6 -> VBA] copier/coller dans differentes feuilles ✓ - Forum - Visual Basic 6
- [Déplacé VB6 --> VBA] aide sur une macro copier/coller ✓ - Forum - Visual Basic 6
- [Déplacé VB6 -> VBA]Trier une liste de prix sur excel ✓ - Forum - Visual Basic 6
8 réponses
Bonjour,
Après une bonne soirée à essayer de comprendre les if, les select case, les for ... Après avoir fais une procédure de if à rallonge menant à une procédure trop longue pour VB .
J'ai réussi à faire ce que je voulais surement avec un code d'amateur.
J'aimerais bien savoir s'il y avait des solutions plus faciles.
Cordialement.
http://www.cijoint.fr/cjlink.php?file=cj201005/cij5p65tJA.xls
Après une bonne soirée à essayer de comprendre les if, les select case, les for ... Après avoir fais une procédure de if à rallonge menant à une procédure trop longue pour VB .
J'ai réussi à faire ce que je voulais surement avec un code d'amateur.
J'aimerais bien savoir s'il y avait des solutions plus faciles.
Cordialement.
http://www.cijoint.fr/cjlink.php?file=cj201005/cij5p65tJA.xls
Salut,
Je pense que si tu passais par une jolie userform et non pas par le remplissage de cellules par les opérateurs, tu obtiendrais un résultat plus rapide dans l'exécution (quasi immédiat) et plus simple à gérer.
Et en ergonomie, peut-être plus simpa.
zeps
Je pense que si tu passais par une jolie userform et non pas par le remplissage de cellules par les opérateurs, tu obtiendrais un résultat plus rapide dans l'exécution (quasi immédiat) et plus simple à gérer.
Et en ergonomie, peut-être plus simpa.
zeps
Salut,
Une jolie userform, je n econnais pas mais je vais me pencher dessus on va voir ce que je peux faire.
J'aurais aimer un petit exemple mais tandis je fonce.
Je remettrais ça tu me dira ce que tu en penses.
Merci,
Alex
Une jolie userform, je n econnais pas mais je vais me pencher dessus on va voir ce que je peux faire.
J'aurais aimer un petit exemple mais tandis je fonce.
Je remettrais ça tu me dira ce que tu en penses.
Merci,
Alex
Salut Zeps,
J'ai pas mal avancé enfin je pense.
Ne connaissant pas du tout VB et encore moins les userforms, j'ai un peu galéré,recherche ---> bricolage----> recherche ----> bidouille ...
mais je pense que je ne suis pas loin du but.
Il me manque encore quelques détails à régler comme:
Déprotéger les feuilles pour exécuter les macros puis les reprotéger.
Enpécher les opérateurs de mettre deux fois le même nom d'analyse via l'userform
ou encore avoir une combobox restreinte aux données existantes et non pas un rowsource(A2:A60000) qui fait apparaitre plein de lignes blanches dans ma combo.
J'ai pas encore vu tous les bugs que présente mon fichier ...
Je ne l'ai pas sous la main mais je le mettrai mardi, tu me donnera ton avis.
En tout cas l'idée de l'userform déchire grave ! le fichier n'a plus rien a voir.
Merci
ALex
J'ai pas mal avancé enfin je pense.
Ne connaissant pas du tout VB et encore moins les userforms, j'ai un peu galéré,recherche ---> bricolage----> recherche ----> bidouille ...
mais je pense que je ne suis pas loin du but.
Il me manque encore quelques détails à régler comme:
Déprotéger les feuilles pour exécuter les macros puis les reprotéger.
Enpécher les opérateurs de mettre deux fois le même nom d'analyse via l'userform
ou encore avoir une combobox restreinte aux données existantes et non pas un rowsource(A2:A60000) qui fait apparaitre plein de lignes blanches dans ma combo.
J'ai pas encore vu tous les bugs que présente mon fichier ...
Je ne l'ai pas sous la main mais je le mettrai mardi, tu me donnera ton avis.
En tout cas l'idée de l'userform déchire grave ! le fichier n'a plus rien a voir.
Merci
ALex
Alex,
Et ben, impec !
Pour la protection tu fait ça dans le cas ou ton fichier est actif :
Pour moi, MdP = mot de passe
Sub MdP()
For k = 1 To 10 'pour les feuilles de 1 à 10 par exemple du classeur
Sheets(k).Select
ActiveSheet.Protect Password:=("XXXX"), DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
ActiveWindow.Close SaveChanges:=True
End Sub
------------------------------------------------
Sub Sans_MdP()
For k = 1 To 10
Sheets(k).Select
ActiveSheet.Unprotect Password:="XXXXX"
Next
ActiveWindow.Close SaveChanges:=True
End Sub
De mon côté, j'ai notamment un grand nb de classeur xls à protéger ou déprotéger.
Si c'est ton cas, je peux te dire comment faire ( en tout cas, comment je faits moi !)
dans ta rowsource, tu peux lister ton choix, plutôt que de faire appel à un listing. mais tu peux également limiter ta source ( Liste!C2:C70 par exemple : Liste! = feuille!)
Pour le reste, je ne comprends pas trop.
A plus tard....
Et ben, impec !
Pour la protection tu fait ça dans le cas ou ton fichier est actif :
Pour moi, MdP = mot de passe
Sub MdP()
For k = 1 To 10 'pour les feuilles de 1 à 10 par exemple du classeur
Sheets(k).Select
ActiveSheet.Protect Password:=("XXXX"), DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
ActiveWindow.Close SaveChanges:=True
End Sub
------------------------------------------------
Sub Sans_MdP()
For k = 1 To 10
Sheets(k).Select
ActiveSheet.Unprotect Password:="XXXXX"
Next
ActiveWindow.Close SaveChanges:=True
End Sub
De mon côté, j'ai notamment un grand nb de classeur xls à protéger ou déprotéger.
Si c'est ton cas, je peux te dire comment faire ( en tout cas, comment je faits moi !)
dans ta rowsource, tu peux lister ton choix, plutôt que de faire appel à un listing. mais tu peux également limiter ta source ( Liste!C2:C70 par exemple : Liste! = feuille!)
Pour le reste, je ne comprends pas trop.
A plus tard....
Salut Zep
il me reste un petit souci que j'ai posté ici. Si tu veux me donner ton avis :p
Merci a bientôt
il me reste un petit souci que j'ai posté ici. Si tu veux me donner ton avis :p
Merci a bientôt