Discussion :

[EyesNetasq]

Bonjour à toutes & tous,

Dans le cadre d'un de mes projets, je dois mettre en oeuvre un comparatif de doublons entre deux critères.

Un exemple est troujours plus intéressant :



Mon but est d'aligner "massivement" App 1 de Colonne B & App 1 de Colonne C, App2 de Colonne B avec App2 de Colonne C etc. Autrement dit, intervertir le contenu de B3 avec B2 sans affecter C3.
(Le Vert = "match" / Rouge = "no match")

Après des recherches sur des Forums Anglais & Français je n'ai trouvé que des inversions de Lignes avec des Colonnes.

N'ayant que peu d'expérience dans le VBA, une ou plusieurs personnes peuvent-elles m'accorder un peu de leur temps pour me présenter un exemple de Macro VBA Excel ?

NB : Les champs doivent être sur la même ligne pour un visuel plus concrêt des doublons. Les MFC sont déjà toutes présentes, il ne me manque plus que cet alignement.

Merci bien par avance.
Bien cordialement,

EyesNetasq.

[Oliv-]

Salut,
il faut par exemple passer par des variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
a=range("a1").value
b=range("b1").value
range("a1").value=b
range("b1").value=a

ou avec un tableau

[EyesNetasq]

Bonjour Oliv-,

Merci avant tout de ta réponse.
Je vois bien ce que tes 4 lignes de codes tentent de dire, cependant j'imagine que la Macro nécessite des mots clés tels que le "Switch" ou bien d'enregistrer une des données à intervertir.

Peux-tu m'éclairer sur comment procéder pour la suite ?

Merci beaucoup.

EyesNetasq.

[Oliv-]

c'est bien ce qu'elle fait les 2 premières ligne mémorisent les données
les 2 suivantes intervertissent les valeurs

[EyesNetasq]

D'accord,

Pour une application en Macro j'ai tenté cela ne donne aucun résultat.
Je dois sans doute très mal éxecuter la chose.

Je suis désolé, j'ai un niveau proche du néant en Macro & VBA.

Mon Module représente ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Switch()
a = Range("a1").Value
b = Range("b1").Value
Range("a1").Value = b
Range("b1").Value = a
End Sub

Lorsque j'éxecute la Macro après sélection, rien ne se passe.
Pourrais-tu m'éclairer d'avantage s'il te plait ?

Merci par avance.

EyesNetasq.

[Oliv-]

ton niveau est vraiment très bas je t'invite à l'élever en consultat les articles suivants :

http://excel.developpez.com/cours/

et surtout là
http://excel.developpez.com/cours/?p...#environnement

Mon code n'agit pas sur la selection mais juste sur a1 et b1

avec une selection de deux cellules sur la même ligne ca pourrait donner cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Switch()
    Set Maselection = Selection
    If Maselection.Cells.Count <> 2 Or Maselection.Rows.Count <> 1 Then Exit Sub
 
    If Maselection.Areas.Count > 1 Then
    Montablo = Split(Maselection.Address, ",")
    Else
     Montablo = Split(Maselection.Address, ":")
    End If
 
    a = Range(Montablo(0)).Value
    b = Range(Montablo(1)).Value
 
    Range(Montablo(0)).Value = b
    Range(Montablo(1)).Value = a
End Sub

mais si tu ne comprends pas le premier code celui-ci ca doit être du chinois