égalité de cellules

  • Initiateur de la discussion Initiateur de la discussion soulced
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

soulced

XLDnaute Nouveau
Bonjour,

Je bloque sur ma macro, il suffit juste de prendre 2 colonnes et d'afficher dans une troisième les numéro qui sont dans ces 2 colonnes.

J'ai fait une macro qui fonctionne sur 10 lignes mais sur 2000 sa me fait planter excel.

une petite aide ne serait pas de refus

Merci
 

Pièces jointes

Re : égalité de cellules

Bonjour,

on n'aperçoit pas l'ombre d'un bout de code vba dans ton fichier...
ni le résultat attendu...

donc à tout hasard :
Code:
Sub test()
DerLig = Range("B" & Rows.Count).End(xlUp).Row
For i = 4 To DerLig
   If Cells(i, "B") = Cells(i, "c") Then Cells(i, "d") = Cells(i, "B")
Next
End Sub
Cordialement
 
Re : égalité de cellules

Merci mais ce n'est pas tout a fait ça.
En effet je n'ai pas mis de code VBA, mais ...

J'ai une macro qui sert a comparer les 2 colonnes et qui affiche les valeurs qui sont dans une colonne et pas dans l'autre:

Dim colonne1 As Range, colonne2 As Range, cellule As Range, trouve As Range, suite As Range
Set colonne1 = Range([B4], [C4].End(xlDown))
Set colonne2 = Range([B4], [C4].End(xlDown))
Range("CD4:C65536").ClearContents
'recherche les valeurs identiques
For Each cellule In colonne2
Set suite = [C65536].End(xlUp).Offset(1, 0)
Set trouve = colonne1.Find(cellule.Value, LookIn:=xlValues, lookat:=xlWhole)
If trouve Is Nothing Then suite.Value = cellule.Value
Next
End Sub

Voila, pour ce cas la il faut donc comparer mais afficher les valeurs identiques. donc il faut juste que je remplace le "is nothing then" par "is égal ....." ?
 
Re : égalité de cellules

Re,
Je me suis peut etre mal exprimé.
Non, c'est moi qui n'avait pas trop le temps et qui suis allé trop vite...
J'ai fait à ma façon...
Code:
Sub test2()
DerLig = Range("B" & Rows.Count).End(xlUp).Row
j = 4
For i = 4 To DerLig
    If Not Range("C4:C" & DerLig).Find(Cells(i, "B").Value, LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then Cells(j, "d") = Cells(i, "B"): j = j + 1
Next
End Sub
Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
790
Réponses
22
Affichages
1 K
Retour