[Excel] VBA pour un collé transposé sans MFC

Résolu
cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjours à tous,

Je dois faire un collé / Transposé de certaines valeurs.

Les cellules sources (en 1 colonne) contiennent une Mise en Forme Conditionnelle.

Et lors de ce collage, Excel, 1x/2 Plante (Ne répond pas).

Je suis obligé de fermer le programme ;((

Quel serait la syntaxe du code, pour coller en ligne, une sélection Préalablement copiée

et ceci sans MFC ?

Est-possible ?

Voici mon code : 

Sub Collage_Transpose_SANS_MFC()
'
' Collage_Tranpose_SANS_MFC Macro
'

'
    
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    
End Sub

Je pense que 
xlPasteAll
doit être remplacé par un autre terme ???

Merci d'avance de vos réponses ou conseils éclairés.

A question détaillée, Réponse précise ! ☼► Si question résolue, côcher l'option voulue. Mettez vos logiciels à jour ! et... Merci n'est pas un luxe ♪♫.

3 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Paste:=xlPasteValues
    0
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Le paramètre Paste peut en effet prendre plusieurs valeurs.
    Tu peux utiliser :
    Pour coller uniquement les valeurs : 
    Paste:=xlPasteValues

    Pour coller uniquement les formules : 
    Paste:=xlPasteFormulas

    etc...

    Si tu veux, tu peux les retrouver par toi-même en utilisant l'enregistreur de macro.

    - Onglet Développeur, clic sur Enregistrer une macro
    - Copies ta plage de cellules
    - Clic droit / Collage spécial / collage spécial
    ==> Là tu peux essayer et enregistrer les 12 possibilités de Coller...

    Les macros enregistrées par ce biais sont disponibles dans un module de ton classeur.
    0
  3. cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   803
     
    Merci à vous de vos réponses rapides ;)

    J'ai testé : 

    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=True
        
    End Sub


    C'est OK...

    ... mon problème n'est cependant pas vraiment résolu; en effet, les cellules sources ont des motifs (remplissage) ... gris pour les impaires et par défaut (rien) pour les paires. motifs, que j'aimerais pouvoir garder.

    Dans la fenêtre "collage spécial", je ne puis sélectionner qu'une des options
    (encadré rouge)

    :


    Edit,

    16:50
    Je pense à un " remplissage par macro des nombres impairs

    P.s.:

    J'ai Excel 2010

    Merci de votre temps :D

    A question détaillée, Réponse précise ! ☼► Si question résolue, côcher l'option voulue. Mettez vos logiciels à jour ! et... Merci n'est pas un luxe ♪♫.
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      As tu essayé "Valeurs et formats des nombres" sur la droite?
      0
    2. cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   803
       
      Salut pijaku,

      Ne fonctionne pas snif

      et j'ai collé la sélection dans une partie vierge de mon classeur

      j'ai associé la macro : 

      Sub Collage_Transpose_SANS_MFC_04()
      '
      ' Macro4 Macro
      '

      '
          Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
              xlNone, SkipBlanks:=False, Transpose:=True
          'Application.CutCopyMode = False
          
      End Sub

      à un bouton, enregistré le tout fermé XLS en re testé

      mais les cellules impaires ne contiennent pas de remplissage gris.



      Je dois sortir un moment : RDV je "reviendre" dès que possible !

      Bon apéro !
      0
    3. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Salut,

      Peux tu nous faire parvenir une copie de ton classeur, sans données confidentielles?
      0
    4. cbauf Messages postés 5337 Date d'inscription   Statut Contributeur Dernière intervention   803
       
      Re,

      Je dois corriger pratiquement tout le classeur (pronostiques pour le swiss loto) pour pouvoir le joindre,

      Donc pour le moment, puisqu'il ne plante plus avec la macro ci-dessus, je vais en rester là.

      Merci de ton aide. ;-)
      0
    5. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Salut,

      de rien...
      A+
      0