Discussion :

[guismoman33]

J'aimerai cliquez sur une case (A1) pour copier les case de A9 à E13 de la page 1 et de les mettre sur la page 13...Mais pas les copier normalement j'aimerai que les colonne devienne les ligne et que les ligne devienne les colonnes...Et tout c'est commande la je ne les connait pas...S'il vous plait aidez moi j'aimerai juste qu'on me donne les bout de code pour faire ceci...

[tonton fred]

Bonjour,
Lance l'editeur de macro, copie tes cellules et au lieu de coller tu fait collage special -> transposer.

[guismoman33]

Mais comment fait on pour faire d'une case un bouton, quand j'appuie sur la case A1 je veux qu'il active la macro8

[guismoman33]

Après une reflexion j'ai trouver un logaritme pour ma selection de colonne mais je ne seriat pas la metttre en appilcation sous cause que je n'est pas les commende

boucle de A25 à I25
si lacase=0 alors
ne pas sélectionné la colonne
sinon
la selectionné
fin boucle

Voila comment mettre dans une variable toute la selection pour ensuite la copier etc...

[mordrhim]

allez je suis de bon coeur ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim TrgLi As Integer
    Dim TrgCo As Integer
 
    TrgCo = Target.Column
    TrgLi = Target.Row
 
    Application.ScreenUpdating = False
 
    If TrgLi = 1 And TrgCo = 1 Then
        Range("A9:E13").Copy
        Feuil2.Range("A9").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
            , Transpose:=True
    End If
    Target.Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

apres tu remplaces Feuil2 par le nom de ta feuille n° 13 (le nom dans VBA pas celui que tu vois sur le classeur)
et tu remplace TrgLi et TrgCo par les coordonnées de la cellule "bouton"

[guismoman33]

je te remercie, il manque juste un truc ma boucle avec ma condition??ceci est important car je veux pas tout copier je veux copier que les colonne rempie et nous les reperons grace à la ligne 25...regarde dans l'algo mais tu m'en a deja fait beaucoup merci