Pourriez-vous m'aider à faire la manipulation suivante ?

Bonjour,

J'ai copié-collé la liste de vocabulaire allemand suivante dans Excel https://www.memrise.com/course/1013256/allemand-niveau-b2c1/17/?action=next&fbclid=IwAR2fSKCkEqVJeuFEgF9pt_TQflhFuwpqzynZoD-DHKMbvtw_awtFo33BJpM

Cependant je souhaiterais qu'il y ait les mots d'allemand sur une colonne et leur traduction en français sur l'autre

Y a t-il une manipulation possible pour faire ça directement en copiant-collant ou alors un moyen d'obtenir ce résultat après ?

Bonne soirée !

Damien

bonjour toutes et tous

j'ai utilisé ctrl + X pour couper les mots français de la colonne A et, ctrl + v pour coller dans la colonne B

la macro qui delete/supprime, les cellules vides de la colonne A de la feuil1 (jusqu'à 200 lignes)

ci-joint

Edit: merci à Thauthème post ci-dessous ^^

crdlt,

André

Bonsoir Damien, André, bonsoir le forum,

Copie/colle en A1 dans un onglet nommé Feuil1 (ou adapte le code...). Lance le code ci-dessous et les données sont envoyés sur deux colonnes à partir de E1...

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim TL() As Variant 'déclare la variable TL (Tableau des lignes)
Dim I As Integer 'déclare la variable I (Incrément)
Dim K As Integer 'déclare la variable K (incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
K = 1 'initialise la variable K
For I = 1 To UBound(TV, 1) - 1 'boucle sur toutes les lignes I du tableau des valeurs TV (jusqu'à l'avant dernière)
    ReDim Preserve TL(1 To 2, 1 To K) 'redimentionne le tableau de lignes TL (2 lignes, K colonnes)
    TL(1, K) = TV(I, 1) 'récupères dans la ligne 1, colonne K de TL, la valeur de la données en ligne I de TV
    TL(2, K) = TV(I + 1, 1) 'récupères dans la ligne 2, colonne K de TL, la valeur de la données en ligne I+1
    K = K + 1: I = I + 1 'incrémente K (ajoute une colonne au tableau des lignes TL), incrémente I (pour sauter une ligne)
Next I 'prochaine ligne de la boucle
O.Range("E1").Resize(UBound(TL, 2), 2) = Application.Transpose(TL) 'renvoie dans E1 le tableau TL transposé
End Sub

Ouh la les amis merci pour vos réponse mais je ne comprend rien haha. Faut dire que je suis archi débutant sur Excel et vraiment mauvais (pour le moment)

Comment on fait pour lancer un code ? Faut aller où ?

André si on fait ctrl + X dans la colonne A ça sélectionne toute la colonne A, y compris les mots allemands, comment tu fais pour ne couper que les mots français ?

Damien

Bonjour,

L'éditeur VBA (langage sur lequel repose Excel et avec lequel on peut coder différentes actions) est accessible via ALT + F11.

Le code est à ajouter dans un module standard (insertion --> module) ou spécifique (d'une feuille, ou nommé "ThisWorkbook" pour le classeur entier) selon sa nature.

Je te conseille de commencer par les cours Excel et VBA du site pour te familiariser avec tout ça.

https://www.excel-pratique.com/fr/cours.php

https://www.excel-pratique.com/fr/vba.php

re,

en prenant l'exemple du code de Thauthème

en vidéo que, j'ai réalisé en 2 minutes

les touches du clavier

CTRL+ C pour (copier)

CTRL+ X pour (couper)

CTRL + V pour (coller)

1 macro pour supprimer le contenu de la colonne A (avec demande de confirmation)

+ macro de Thauthème

https://youtu.be/_t1fz3ybjCg

crdlt,

André