ECART ENTRE DEUX COLONNES DE DONNEES ALPHANUMERIQUE
3 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
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" a écrit dans le message de 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.
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" <Stphaneb@discussions.microsoft.com> a écrit dans le message de
news: 21ACD583-8D46-4258-9825-82CC37BC5FAA@microsoft.com...
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
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" a écrit dans le message de 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
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" a écrit dans le message de 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.
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" <Stphaneb@discussions.microsoft.com> a écrit dans le message de
news: 21ACD583-8D46-4258-9825-82CC37BC5FAA@microsoft.com...
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
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" a écrit dans le message de 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
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
On 17 nov, 22:25, Stéphane.b <Stpha...@discussions.microsoft.com>
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
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