Sujet Précédent Sujet Suivant

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

Résolu/Fermé
cbauf Messages postés 4297 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 22 juin 2022 - Modifié par cbauf le 10/12/2013 à 15:56
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 12 déc. 2013 à 13:23
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
10 déc. 2013 à 16:06
Bonjour,

Paste:=xlPasteValues
0
Réponse 2 / 3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
10 déc. 2013 à 16:06
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 4297 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 22 juin 2022 783
Modifié par cbauf le 10/12/2013 à 16:52
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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
10 déc. 2013 à 16:47
As tu essayé "Valeurs et formats des nombres" sur la droite?
0
cbauf Messages postés 4297 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 22 juin 2022 783
10 déc. 2013 à 17:10
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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
11 déc. 2013 à 07:57
Salut,

Peux tu nous faire parvenir une copie de ton classeur, sans données confidentielles?
0
cbauf Messages postés 4297 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 22 juin 2022 783
12 déc. 2013 à 13:18
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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
12 déc. 2013 à 13:23
Salut,

de rien...
A+
0