Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ECART ENTRE DEUX COLONNES DE DONNEES ALPHANUMERIQUE

ECART ENTRE DEUX COLONNES DE DONNEES ALPHANUMERIQUE

3 réponses
Avatar
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.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
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.


Avatar
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.


Avatar
JB
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.