ECART ENTRE DEUX COLONNES DE DONNEES ALPHANUMERIQUE

Le
Stéphane.b
Bonjour

j'aimerai savoir comment faire pour créer une nouvelle colonne C contenant
la difference entre des données d'une colonne A
PAR EXEMPLE colonne A ( A5 = alain,A6 = aline,A7 = Bernard, A8 =Brigitte)
Colonne B ( B5= alain, B6= aline,B7 = amelle, B8 =Brigitte)
Colonne C ( Bernard,amelle)
Le tout si possible en Visual basic pour application
Merci pour votre aide

Stephane B.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #5045611
Bonsoir,
En C5, valider puis recopier vers le bas.
=si(a5µ;"";a5&","&b5)
Bonne chance

Sub testMPFE()
For Each c In Range("A5:A20")
If [c] <> [c].Offset(0, 1) Then [c].Offset(0, 2) = c.Value & "," &
c.Offset(0, 1)
Next
End Sub
--
Bien amicalmement,
Le vin est au repas ce que le parfum est à la femme.

Jacquouille.

"Stéphane.b" news:
Bonjour

j'aimerai savoir comment faire pour créer une nouvelle colonne C contenant
la difference entre des données d'une colonne A
PAR EXEMPLE colonne A ( A5 = alain,A6 = aline,A7 = Bernard, A8 =Brigitte)
Colonne B ( B5= alain, B6= aline,B7 = amelle, B8 =Brigitte)
Colonne C ( Bernard,amelle)
Le tout si possible en Visual basic pour application
Merci pour votre aide

Stephane B.


Youky
Le #5045471
Salut
voici qui répond à ta demande bien qu'il y ai moyen de bien paufiner la
chose en utilisant des listebox
ceci pour tester 1000 lignes sinon faut changer les 1000, en plus pas besoin
de les classer par ordre alpha..
Youky

Private Sub CommandButton1_Click()
Dim colA(1000) As String
Dim colB(1000) As String
[C1:C1000].ClearContents
basA = [A65536].End(3).Row
basB = [B65536].End(3).Row
For k = 1 To basA
colA(k) = Cells(k, 1)
Next
For k = 1 To basB
colB(k) = Cells(k, 2)
Next
For k = 1 To basA
For n = 1 To basB
If colA(k) = colB(n) Then
colA(k) = ""
colB(n) = ""
End If
Next
Next
lig = 1
For k = 1 To 1000
If colA(k) <> "" Then
Cells(lig, 3) = colA(k)
lig = lig + 1
End If
Next
For k = 1 To 1000
If colB(k) <> "" Then
Cells(lig, 3) = colB(k)
lig = lig + 1
End If
Next
End Sub

"Stéphane.b" news:
Bonjour

j'aimerai savoir comment faire pour créer une nouvelle colonne C contenant
la difference entre des données d'une colonne A
PAR EXEMPLE colonne A ( A5 = alain,A6 = aline,A7 = Bernard, A8 =Brigitte)
Colonne B ( B5= alain, B6= aline,B7 = amelle, B8 =Brigitte)
Colonne C ( Bernard,amelle)
Le tout si possible en Visual basic pour application
Merci pour votre aide

Stephane B.


JB
Le #5045351
Bonjour,

http://boisgontierjacques.free.fr/fichiers/Matriciel/MatricielDifference.xls
http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_Diff.xls

JB
http://boisgontierjacques.free.fr


On 17 nov, 22:25, Stéphane.b wrote:
Bonjour

j'aimerai savoir comment faire pour créer une nouvelle colonne C contena nt
la difference entre des données d'une colonne A
PAR EXEMPLE colonne A ( A5 = alain,A6 = aline,A7 = Bernard, A8 =Br igitte)
Colonne B ( B5= alain, B6= aline,B7 = amelle, B8 =Brigitte)
Colonne C ( Bernard,amelle)
Le tout si possible en Visual basic pour application
Merci pour votre aide

Stephane B.


Publicité
Poster une réponse
Anonyme