Problème de code

[luke3300]

Bonjour le forum,

voilà mon problème:

Dans le fichier joint, j'aimerais pouvoir transférer les données des celulles C10, C12, C14, C16, C18, C20, G10, G12, G14, G16, G18, G20, G22, G10, K12, K14, K16 et K22 de la feuille "Encodage" vers la feuille "Résumé". Le tout dans chaque colonne respective. L'action se ferait en cliquant sur le bouton "Archiver" et se ferait par ligne. Chaque fois que je cliquerais sur "Archiver", les données présentent dans les cases ci-dessus se transfèreraient à la ligne suivante afin de pouvoir se constituer une base de données.

J'ai essayé de reproduire un code que l'on m'avait fourni ici mais avec moi ça marche pas. Pas étonant, j'y connais rien en code 🙂

Merci d'avance pour votre aide et bonne fête du 15 août à toutes et tous.

 

[wazzebu]

Re : Problème de code

Bonjour,

voila le fichier modifié, dis moi si c'est bien ce que tu voulais.

@+

Wazzebu

 

[luke3300]

Re : Problème de code

Bonjour Wazzebu,

merci pour ta réponse.

En fait c'est en partie ce que je désire. Ici selon tes modifications, chaque fois que je clique sur le bouton "Archiver", les données se transfèrent toujours dans la 1ère ligne et donc elles effacent les données précédement sauvegardées.
Ce que je désire, c'est que les nouvelles données s'ajoutent dans la feuille "Résumé" à la suite l'une de l'autre. Donc les 1ères données sauvegardées iront à la ligne 2 et les autres à la 3, la 4, etc ...

Voilà, si tu as beosin d'autres infos, n'hésites pas à le demander et merci encore.

 

[wazzebu]

Re : Problème de code

re,

désolé j'ai oublié une petite ligne de code 😀

....
debut:

Sheets("Résumé").Select

If Range("A" & i) <> "" Then
......

Parce que la il faisait le test sur la première feuille !!

Maintenant ca marche 😀

C'est ok?

 

[wazzebu]

Re : Problème de code

Aller 😀,

je te met le fichier modifié en pièce jointe.

(Et pour l'impression c'est ok?)

@+

Wazzebu

 

[luke3300]

Re : Problème de code

Bonjour à tous,

Merci beaucoup Wazzebu, ça fonctionne nickel!

Pour l'impression, c'est OK, c'est un code que j'avais récupéré d'un autre fichier.

Cependant ... juste une petite question:

ne pourrait-on pas améliorer le code de manière à ce que le copier/coller de la macro qui s'exécute ne se voit pas? Actuellement on voit lors de l'exécution de la macro, les pages qui passent de l'une à l'autre.

Je mets le code ci-dessous pour ceux qui voudraient plancher dessus aussi:

Sub Copie()
'
' Copie Macro
'

'

i = 2

debut:
Sheets("Résumé").Select
If Range("A" & i) <> "" Then

    i = i + 1
    GoTo debut
    
Else
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("C10").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("A" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("C12").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("B" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
        
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("C14").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("C" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("C16").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("D" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("C18").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("E" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("C20").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("F" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("G10").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("G" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("G12").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("H" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
        
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("G14").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("I" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("G16").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("J" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("G18").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("K" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("G20").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("L" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("G22").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("M" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False


    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("K10").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("N" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("K12").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("O" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
        
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("K14").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("P" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Selection.NumberFormat = "h:mm;@"
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("K16").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("Q" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
    Sheets("Encodage").Select
    Application.CutCopyMode = False
    Range("K22").Select
    Selection.Copy
    Sheets("Résumé").Select
    Range("R" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("Encodage").Select
    Range("K23").Select
    Selection.Delete
    
End If

Un grand merci d'avance à toi Wazzebu.

 

[wazzebu]

Re : Problème de code

Bonjour,

j'ai trouvé ce code sur le forum, mais n'étant pas chez moi (donc pas d'excel 2007) j'ai pas pu la tester...

Application.ScreenUpdating = False

à mettre avant i=2

A essayer

Wazzebu

 

[luke3300]

Re : Problème de code

Re Wazzebu,

un énorme merci car il fonctionne impeccablement.

Bonne journée à toi et encore merci pour ton aide ;-)