Besoin d'aide sur une macro "Archivage"

[JpM79]

Bonjour à tout le forum,

Est ce que quelqu'un pourrait me dire ce qui cloche ou manque dans la macro Archiver, car elle fonctionne pas correctement.
je ne trouve pas de post pouvant m'aider alors merci a ceux qui se pencheront sur ce problème.

 

[justine]

Re : Besoin d'aide sur une macro "Archivage"

bonsoir le monde, JpM79

ta macro:
Sheets("Reponses").Select
pourquoi tu selectionne cette feuille, tu en selectionnes une autre tout de suite apres

Sheets("Archives").Select
Range("A6").Select
Selection.EntireRow.Insert
Rows("3:3").RowHeight = 13.2
pourquoi tu mets une hauteur de ligne a chaque fois, place la à l'ouverture de ton fichier. de plus cette ligne est vide

Sheets("Reponses").Select
Range("A6:AO6").Select
Selection.Copy
Sheets("Archives").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("Reponses").Select
Rows("3:3").Select
Range("A6").Activate
tu selectionnes une ligne et apres une cellule, pourquoi?
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("ACCUEIL").Select
Range("B13").Select

il peut y avoir autre chose mais je t'envoie de suite ces premiers elements qui clochent

 

[Cousinhub]

Re : Besoin d'aide sur une macro "Archivage"

Bonjour jpm, justine

essaie ce code :

Sub Archiver2()
With Sheets("Archives")
    .Range("A6").EntireRow.Insert
    Range("A6:AO6").Copy .[A6]
    Rows("6:6").Delete Shift:=xlUp
End With
Sheets("ACCUEIL").Select
End Sub

 

[JpM79]

Re : Besoin d'aide sur une macro "Archivage"

bonsoir justine,
pour répondre a tes questions, et bien deja, je suis débutant avec ce fabuleux tableur que je découvre un peu chaque jour, et puis étant sur ce problème depuis ce matin, j'avoue être un peu perdu !! mais tes remarques, me permettent de me recentrer sur mes lacunes et donc les points sur lesquels je dois travailler.
(après une petite pause café 🙂 )
merci à toi

 

[justine]

Re : Besoin d'aide sur une macro "Archivage"

re
tout le monde a été debutant donc connu les problemes ,au fur et à mesure, tu apprendras a les résoudre tout seul et j'espere que toi aussi tu aideras les personnes en difficultés. c'est comme ca que fonctionne un forum.
bonne continuation et n'hésite pas a poser tes questions, beaucoup de gens t'aiderons.
justine

 

[JpM79]

Re : Besoin d'aide sur une macro "Archivage"

merci bbh pour le code que je vais tester ...
Franchement si ces quelques lignes suffisent alors que j'étais parti dans quelquechose de plus compliqué, et bien je vais prendre un abonnement à excel pour les nuls 🙂
Arrff, 🙂 je pense que je vais quand meme my abonner ... lol

Merci encore

 

[JpM79]

Re : Besoin d'aide sur une macro "Archivage"

bonjour bhbh, 😱
je suis de nouveau confronter a un souci et je ne sais pas ou trouver la solution (ca fait deux jours que j'ecume les posts et les liens parlant de checkbox mais j'arrive pas a trouver la correspondance avec mon problème )
je me decide donc à faire de nouveau appel a des personnes plus qulaifiées que moi .. ceci dit, je continue les recherches de mon côté car j'aime bien aller au bout des choses.

Merci pour ta collaboration qui d'ailleur s'est révélé tres efficace pour la macro Archiver()

NB ci joint mon fichier

 

[Cousinhub]

Re : Besoin d'aide sur une macro "Archivage"

Bonsoir,
pour la première, remplace ton code par ceci (je n'ai traité qu'un chk, mais cela devrait fonctionner pour tous)

Private Sub CheckBox1_Click()
Sheets("Reponses").[N6] = IIf(CheckBox1, Sheets("feuil2").[G2], "")
End Sub

pour la 2ème, vu que tu écris tout le temps dans la ligne 6, je ne vois pas où se situe ton problème

Je pense qu'il vaudrait mieux penser autrement l'insertion de tes données, c'est à dire calculer ta première ligne vide, et y inscrire toutes les données dans cette lignes.
par contre, les chk ne rentreraient plus directement dans ta feuille, mais uniquement quand tu aurais validé, par une boucle de définition de chaque chk dans chaque frame...
ceci pourrait t'obliger à repenser ton usf, en y insérant des optionsbuttons dans les réponses ne demandant qu'une seule réponse, au choix.
puis repenser l'archivage, c'est à dire que tu pourrais entrer des données à la suite, puis en fin de journée, effectuer ton archivage.
Un gros boulot en perspective, mais je ne doute pas que tu y arriveras, avec ou sans notre aide

 

[THE CAT 2007]

Re : Besoin d'aide sur une macro "Archivage"

Bonsoir,

pour le pt 1 de ta question, à adapter :

Private Sub CheckBox5_Click()
'If CheckBox5.Value = True Then
'Sheets("Reponses").Range("r6").Value = Sheets("feuil2").Range("k2").Value
'End If

Select Case CheckBox5.Value
Case True
Sheets("Reponses").Range("r6").Value =Sheets("feuil2").Range("k2").Value
Case False
Sheets("Reponses").Range("r6").Value = ""
End Select
End Sub

pour le pt 2 )
1 ) détecter la dernière ligne utilisée de la feuille
2 ) tu adresses tes cellules avec range et une adresse en "dur" (r6)
ex :Sheets("Reponses").Range("r6").Value = ...
-> Sheets("Reponses").cells(derniereLigneUtilisee+1,6).Value

je ne sais pas si c clair et si j'ai bien compris les questions ....