Menu

Message d'erreur [Résolu]

Messages postés
15
Date d'inscription
samedi 8 septembre 2018
Dernière intervention
18 octobre 2018
- - Dernière réponse : f894009
Messages postés
13772
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
9 décembre 2018
- 7 oct. 2018 à 11:51
Bonjour, je bloque sur un problème sur mon petit programme, le petit macro compare deux colonne sur deux feuille différent la colonne D de la feuille N°1 a la colonne B de la feuille N°2 , mon problème est le suivant lorsque je filtre la colonne D de A à Z j'ai une erreur de compilation, je programme très peut en VBA et la je bloque vraiment merci d'avance pour votre aide voici le code :

If (NomF1 = "Ecole") Then ' modifier selon le fichier

colcomp1 = 4
colcomp2 = 2

Worksheets(NomF1).Activate
NblF1 = Cells.SpecialCells(xlCellTypeLastCell).Row ' ligne
NbcolF1 = Cells.SpecialCells(xlCellTypeLastCell).Column + 1 ' colonne

Range(Sheets(NomF1).Cells(2, colcomp1), Sheets(NomF1).Cells(NblF1, NbcolF1)).Sort
Key1:=Range(Sheets(NomF1).Cells(2, colcomp1), Sheets(NomF1).Cells(NblF1, colcomp1)),
Order1:=xlAscending ' erreur est ce trouve a ce niveau
Worksheets(NomF2).Activate
NblF2 = Cells.SpecialCells(xlCellTypeLastCell).Row ' ligne
NbcolF2 = Cells.SpecialCells(xlCellTypeLastCell).Column + 1 ' colonne
' adapter
Range(Sheets(NomF2).Cells(2, colcomp2), Sheets(NomF2).Cells(NblF2, NbcolF2)).Sort
Key1:=Range(Sheets(NomF2).Cells(2, colcomp2), Sheets(NomF2).Cells(NblF2, colcomp2)),
Order1:=xlAscending
For i = 2 To NblF1 ' adapter
contenu1 = Sheets(NomF1).Cells(i, colcomp1)
If (contenu1 = "") Then
i = NblF1
Else
For j = 2 To NblF2 ' adapter
contenu2 = Sheets(NomF2).Cells(j, colcomp2)
If (contenu1 = contenu2) Then
Sheets(NomF1).Cells(i, NbcolF1) = "Oui"
GoTo suivant4 ' modifier
ElseIf (contenu1 <> contenu2) And j = NblF2 Then
Sheets(NomF1).Cells(i, NbcolF1) = "Non"
End If
Next j
End If
suivant4: ' modifier
Next i

ps : ce programme fonctionne sur une autre macro.
Afficher la suite 

Votre réponse

1 réponse

Messages postés
13772
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
9 décembre 2018
0
Merci
Bonjour,
Range(Sheets(NomF1).Cells(2, colcomp1), Sheets(NomF1).Cells(NblF1, NbcolF1)).Sort
Key1:=Range(Sheets(NomF1).Cells(2, colcomp1), Sheets(NomF1).Cells(NblF1, colcomp1)),
Order1:=xlAscending ' erreur est ce trouve a ce niveau 


Ces trois lignes sont comme ca dans votre code ou pas ???
Noha-Diak
Messages postés
15
Date d'inscription
samedi 8 septembre 2018
Dernière intervention
18 octobre 2018
-
salut , non elle sont sur la même ligne ^^
f894009
Messages postés
13772
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
9 décembre 2018
-
Bonjour,

Quel est le message d'erreur. Votre fichier serait tres utile!!!
Commenter la réponse de f894009