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

Résolu
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   -  
pijaku Messages postés 12263 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 ♪♫.
A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Paste:=xlPasteValues
0
Réponse 2 / 3
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
Réponse 3 / 3
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   786
 
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
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
As tu essayé "Valeurs et formats des nombres" sur la droite?
0
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   786
 
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
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Salut,

Peux tu nous faire parvenir une copie de ton classeur, sans données confidentielles?
0
cbauf Messages postés 4299 Date d'inscription   Statut Contributeur Dernière intervention   786
 
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
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Salut,

de rien...
A+
0