Aide Première Macro

Question

J'essaye d'exécuter ma première macro mais hélas sans succès. Ci-joint extrait d'un fichier où je voudrais que la deuxième ligne se retrouve à droite de la première https://www.excel-pratique.com/~files/doc2/Statistique.xls xxxxxxxxxxx correspond à d'autres lignes aux nombres variables qui ne doivent pas bouger Comment faire pour que ça marche avec un raccourci en agissant directement sur la deuxième ligne Merci d'avance pour vos réponses (claires, je suis débutante !!!)...

Amadéus · Answer

Pour ce genre de macro simple, une solution est l'enregistreur de macro. Menu "outils" "Macro" "Nouvelle macro" A partir de là, l'enregistreur de macro transpose en lignes de codes tout ce que tu fais au clavier et avec la souris. Le résultat dans le Module1 que tu peux visualiser en faisant Alt+F11 et en cliquant sur module1 https://www.excel-pratique.com/~files/doc2/UDzZaStatistique.xls Cordialement...

galopin01 · Answer

Heu... Tes explications ne sont pas trop claires. Je suppose que sur Feuil1 c'est tes données de départ, ça serait bien que sur la Feuil2 tu nous mettes un aperçu du résultat désiré. En attendant , en l'état actuel de ce que j'ai compris, la macro suivante déplace les valeurs de la colonne A dans la colonne B (pour les lignes paires) Sub test() For Each o In Range("A:A") If o.Row Mod 2 = 0 Then o.Offset(0, 1) = o o.Value = "" End If Next End Sub En revanche s'il s'agit en plus de déplacer A2 vers B1 puis A4 vers B3 comme le suggère Amadéus, c'est un peu plus complexe surtout s'il faut supprimer ensuite toutes les lignes vides. Bref un peu plus de détails seraient bien utiles A+...

galopin01 · Answer

Ben pour ta première macro tu pourrais t'entraîner sur quelque chose de plus cool ! A+...

galopin01 · Answer

Sorry, je n'étais pas trop disponible hier... Je t'ai pondu une macro qui fait ce que tu demandes pour ton classeur démo : C'est à dire qu'après il faut adapter à la réalité... La macro : Sub test() i = 1 For Each o In Range("A7:A48") If o = i Then If o.Offset(1).Value = i + 10 Then o.Offset(0, 1).Value = o.Offset(1).Value Rows(o.Offset(1).Row).Delete i = i + 1 End If End If Next End Sub Cette macro postule qu'on travaille sur la zone A7:A48 et qu'on démarre avec la valeur 1 en A7 (i = 1) Ensuite elle reporte le nombre de la ligne suivante s'il est égal à i + 10 Dans ce contexte je pense qu'un raccourci est inutile car il faut bricoler à chaque fois la macro si la plage change... Donc après s'être assuré que "la bonne feuille" est bien sélectionné YAKA coller la macro dans le module de cette feuille (ou dans Module1); faire F5 et le tour est joué... Bon, pour plus d'explication poser les questions au fur et à mesure... hein ! A+...