Sujet Précédent Sujet Suivant

Aide d'un programme en vba

Résolu/Fermé
Mailil - 1 août 2012 à 09:17
 Mailil - 1 août 2012 à 20:20
Bonjour,

Je gére une base de donnée sur excel, je suis entrain de créer une application sur VBA mon souci est: je voudrais comparer deux colonnes A et B si les données de A se trouvant dans une cellule A2 par exemple sont indentiques aux données B2 alors l'application doit m'ecrire "Matching" sur une autre colonne C. je sais bien que je pouvais le faire avec la fonction si, mais j'aimerai le faire par vba. j'ai vraiment besoin de votre aide
Merci

5 réponses

Réponse 1 / 5
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
1 août 2012 à 09:21
Bonjour,

Question : Combien de lignes doit traiter cette procédure?
0
Mailil
1 août 2012 à 09:29
Beaucoup de lignes en tout cas,
0
Réponse 2 / 5
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
1 août 2012 à 09:51
Beaucoup, c'est pas trop précis, mais on va faire comme si tu avais plus de 5000 lignes à traiter. OK?
Essaye ceci : 
Sub Doublons2col()
Dim Tabl(), i As Long, drLig As Long

drLig = Range("A" & Rows.Count).End(xlUp).Row
Range("C2:C" & drLig).Clear
Tabl = Range("A2:B" & drLig)
For i = LBound(Tabl) To UBound(Tabl)
    If Tabl(i, 1) = Tabl(i, 2) Then
        Cells(i + 1, 3) = "Matching"
    End If
Next
End Sub
0
Réponse 3 / 5
Mailil
1 août 2012 à 16:48
Excuse moi j avais eu un probleme avec mon reseau
Je vais essayé votre code
0
Réponse 4 / 5
Mailil
1 août 2012 à 17:00
L e code marche mais a chaque fois il faut l'excuter en vba
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
1 août 2012 à 17:04
Ben oui. Ou l'insérer dans une autre procédure. Ou le faire appeler par une autre procédure..........................
0
Mailil
1 août 2012 à 17:54
Je vaiens de créer un bouton sur une feuille excel le code que vous venez de donnez marche tres bien;. Maintenant l'unquietude que j'ai aulieu de la colonne A , on prend la colonne D et L au lieu de B je veux Afficher Maching à la colonne Q
Merci Vraiment
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
1 août 2012 à 18:58
Pas d'inquiétude : 
Sub Doublons2col()
Dim Tabl(), i As Long, drLig As Long

drLig = Range("A" & Rows.Count).End(xlUp).Row
'on efface le contenu de la colonne Q
Range("Q2:Q" & drLig).Clear
'variable tableau de A2 à Lxxx
Tabl = Range("A2:L" & drLig)
'on boucle sur toute la variable tableau
For i = LBound(Tabl) To UBound(Tabl)
'ICI 4 = D et 12 = L
    If Tabl(i, 4) = Tabl(i, 12) Then
'ICI 17 = Q
        Cells(i + 1, 17) = "Matching"
    End If
Next
End Sub

Voilà

0
Mailil
1 août 2012 à 20:20
Merci ça marche
0

Discussions similaires

programme qui n'affiche pas le mot secret
EMy.chev -
yg_be -

3 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Pourquoi Program files (x86) et Programmes?
peer_at -
abdelhak -

7 réponses
TV LG affiche le carré non programmé
Chantal Joubert -
Evancarreaujoho -

4 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses