Comparer cellules de 2 feuilles excel VBA

Réponse 2 / 8

hervitch
Modifié par hervitch le 23/04/2010 à 15:55

Sub ColorierBatch()  
    Dim i As Integer  
    Dim nb_ligne As Integer  
    Dim TabLignes() As Integer  
    Dim couleur As Integer  
    Dim j As Integer  
    Dim nb_occurence As Integer  
      
    nb_occurence = 0  
    couleur = 3  
    [J4].Select  
    nb_ligne = 0  
    While ActiveCell.Offset(nb_ligne, 0) <> ""  
        nb_ligne = nb_ligne + 1  
    Wend  
      
    ReDim TabLignes(nb_ligne)  
    For i = 0 To nb_ligne - 1  
        If TabLignes(i) = 0 Then  
            TabLignes(i) = couleur  
            j = i + 1  
            While ActiveCell.Offset(j, 0) <> ""  
                If ActiveCell.Offset(j, 0) = ActiveCell.Offset(i, 0) Then  
                    TabLignes(j) = couleur  
                    ActiveCell.Offset(j, 0).Interior.ColorIndex = couleur  
                    ActiveCell.Offset(i, 0).Interior.ColorIndex = couleur  
                End If  
                j = j + 1  
            Wend  
            couleur = couleur + 1  
        End If  
    Next i  
End Sub

A modifier pour tes besoins, cette macro colorie de meme couleur les valeurs identiques en colone J en commencent par J4

Réponse 3 / 8

hamidoux
12 mars 2012 à 12:15

J'ai besoin d'aide sur un petit projet
je cherche à separer une serie de valeur d'une colonne "B" en fonction de la comparaison de la colonne " F"
J'ai ecris ces lignes mais le macro se bloque à la premiere ligne d'instruction

Sub determination_des_droites()

Dim i%, j%, k%
Dim valeur As Long

If Range("F" + CStr(i)) = Range("F" + CStr(i - 1)) Then

Range("j", CStr(k)) = Range("B", i)

Else: j = j + 1 And k = 0 And Range("j", CStr(k)) = Range("B", i)

End If

i = i + 1

End Sub

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
12 mars 2012 à 13:05

Bonjour,
Affecte, au préalable, une valeur, supérieure strictement à 1, à i.
En effet, si i n'a pas de valeur, i = 0. Or Excel ne connais pas de ligne 0.
Si tu affectes 1 à i, i-1 = 0 ==> même problème...
Donc pour commencer, i = 2...
Soit :

Dim i%, j%, k% 
Dim valeur As Long 

i = 2
If Range("F" + CStr(i)) = Range("F" + CStr(i - 1)) Then

ou alors :

Dim i%, j%, k% 
Dim valeur As Long 

i = 1
If Range("F" + CStr(i)) = Range("F" + CStr(i + 1)) Then

Réponse 4 / 8

pecheur63 Messages postés 312 Date d'inscription samedi 3 février 2007 Statut Membre Dernière intervention 19 août 2022 26
18 févr. 2007 à 17:13

je ne t'ai pas tout indiquer
Il faut, une fois tout sélectionner, aller dans format puis cellule puis motif, tu choisis ta couleur et enfin OK

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

Posez votre question

Réponse 5 / 8

kat77 Messages postés 3 Date d'inscription dimanche 18 février 2007 Statut Membre Dernière intervention 18 février 2007
18 févr. 2007 à 19:26

euh..j'ai dû mal m'exprimer..je sais comment mettre une cellule en couleur...quand même! lol
Ce que je veux, c'est pouvoir écrire un programme VBA qui compare automatiquement deux feuilles excel et fait ressortir par de la couleur ou en gras, toutes les cellules de la 2ème feuille qui ne sont pas identiques aux cellules de la feuille 1...

Je vous remercie beaucoup d'avance de m'aider parce que je patauge toujours...

Merci quand même Pécheur

Réponse 6 / 8

Jehnkira
1 déc. 2009 à 15:37

Bonjour,

Ma demande est à peu près identique à celle de Kat77 mais les deux feuilles (toutes les deux nommées Feuill1)sont sur deux fichiers différents (Fichier 1 et fichier 2).

Quelqu'un peut il me dire comment adapter le code de Phadeb mais pour deux fichiers différents.

Merci d'avance pour votre aide

Jehnkira

Réponse 7 / 8

pecheur63 Messages postés 312 Date d'inscription samedi 3 février 2007 Statut Membre Dernière intervention 19 août 2022 26
18 févr. 2007 à 17:05

Bonjour,
Clic en haut de ta feuille dans la p1ère cellule et garde appuyer sur la souris à gauche tou en sélectionnant toute ta zone à colorer, normalement ça marche.

Réponse 8 / 8

kat77 Messages postés 3 Date d'inscription dimanche 18 février 2007 Statut Membre Dernière intervention 18 février 2007
18 févr. 2007 à 20:16

Voici le programme que j'ai essayé de lancer mais les résultats sont incohérents :

Sub Modif()

Dim Cellule1 As Object, Cellule2 As Object
Worksheets("feuil1").Activate
Selection.CurrentRegion.Select
For Each Cellule1 In Selection
Worksheets("feuil2").Activate
Selection.CurrentRegion.Select
For Each Cellule2 In Selection
If Cellule1 <> Cellule2 Then
Cellule2.Interior.ColorIndex = 6
Else
Cellule2.Interior.ColorIndex = 3
Exit For
End If
Next Cellule2
Worksheets("feuil1").Activate
Next Cellule1
End Sub

Comparer cellules de 2 feuilles excel VBA

8 réponses

Discussions similaires

Newsletters