Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 04/02/2011, 18h44   #1
Invité de passage
 
Inscription : février 2011
Messages : 2
Détails du profil
Informations forums :
Inscription : février 2011
Messages : 2
Points : 0
Points : 0
Par défaut Trie suivant la colonne

Bonjour le forum,
Je débute sur excel et je cherche à réaliser un trie entre 2 colonnes.
Je m'explique.
J'ai une colonne A dans la quelle se trouve 100 valeurs
J'ai une colonne B dans laquelle se trouve 10 valeurs

Je voudrais que dans la colonne B, si une des valeurs présentes est aussi présentes dans la colonne A, alors on supprime cette valeur dans la colonne B ( ou on transpose le résultat dans une colonne C peu importe )
Cela est'il possible et comment ?
Un grand merci d'avance !
timo1258 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/02/2011, 19h10   #2
Expert Confirmé Sénior
 
Avatar de casefayere
 
Homme Dominique LEMAIRE
Salarié Champagne
Inscription : décembre 2006
Messages : 2 636
Détails du profil
Informations personnelles :
Nom : Homme Dominique LEMAIRE
Âge : 57
Localisation : France, Ardennes (Champagne Ardenne)

Informations professionnelles :
Activité : Salarié Champagne
Secteur : Agroalimentaire - Agriculture

Informations forums :
Inscription : décembre 2006
Messages : 2 636
Points : 5 075
Points : 5 075
Bonsoir,
Avec un code dans un module dans VBA :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub elimine()
Dim derA As Integer, derb As Integer, x As Integer, y As Integer
With Sheets("feuil1") 'remplacer par nom de ta feuille
   derA = .Range("A" & .Rows.Count).End(xlUp).Row 'derniere ligne en A
   derb = .Range("B" & .Rows.Count).End(xlUp).Row 'derniere ligne en B
   For y = 1 To derb 'si tes données commencent en B1
      For x = 1 To derA 'si tes données commencent en A1
         If .Range("B" & y) = .Range("A" & x) Then
            .Range("B" & y).ClearContents
            'clearcontents pour supprimer la valeur uniquement
            '.Delete Shift:=xlUp pour supprimer la cellule et décaler vers le haut
         End If
      Next x
   Next y
End With
End Sub
__________________
Dom

De Anomaly
Citation:
N'oubliez pas les points suivants !

Les membres qui vous répondent sont des participants bénévoles !
Quand votre problème est résolu, pensez à cliquer sur le bouton [Résolu] en bas de la discussion !
Pensez à remercier les messages qui vous ont aidé en votant positivement pour eux !
casefayere est déconnecté   Envoyer un message privé Réponse avec citation 20
Vieux 04/02/2011, 19h26   #3
Invité de passage
 
Inscription : février 2011
Messages : 2
Détails du profil
Informations forums :
Inscription : février 2011
Messages : 2
Points : 0
Points : 0
fantastique, cela fonctionne !
Un grand merci !
timo1258 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 08h28.


 
 
 
 
Partenaires

Hébergement Web