procédure VBA qui ne fonctionne pas sur un classeur

Bonsoir,
J'ai écrit ces 2 procédures (complété par une personne sympa du forum et je l'en remercie). Elle fonctionne sur un classeur et sur celui cela bogue et je ne comprends pas pourquoi. J'ai vérifié que le nom de ma feuille soit identique et rien n'y fait. Aussi j'envoie un message d'aide car quand on a le nez dans le guidon on ne voit plus rien.

Voici la procédure 1 qui ne fonctionne pas. J'ai un message d'erreur à la ligne for each :

Option Explicit

Sub comparaisonBalance()
Worksheets("comparaisonBalN").Activate
  Dim cellule_2007 As Range
  Dim y_comparaison As Integer
  Dim range_2007, range_2008 As String
 
  range_2007 = "A11:A" & calcMaxRow("balanceN-1")
  range_2008 = "A11:A" & calcMaxRow("balanceN")
 
  y_comparaison = 5
 
  For Each cellule_2007 In Worksheets("balanceN-1").Range(range_2007)
     If Worksheets("balanceN").Range(range_2008).Find(cellule_2007.Value, LookIn:=xlValues) Is Nothing Then
     ' copie les n° de cptes manquants
     Sheets("comparaisonBalN").Cells(y_comparaison, 1).Value = cellule_2007.Value
    
     'copie les intitulés de comptes manquants
     Sheets("comparaisonBalN").Cells(y_comparaison, 2).Value = cellule_2007.Offset(, 1).Value
    
     y_comparaison = y_comparaison + 1
    
     End If
  Next cellule_2007
 
End Sub

Function calcMaxRow(une_feuille As String)
    Dim y As Integer

    y = 11
    Do While Sheets(une_feuille).Cells(y, 1) <> ""
        y = y + 1
    Loop
   
End Function


Voici la procédure 2 qui fonctionne :

Sub ComparaisonBalanceN_1()
Worksheets("comparaisonBalanceN-1").Activate
    Dim cellule_2008 As Range
    Dim y_comparaison As Integer
    Dim range_2007, range_2008 As String
  
    range_2008 = "A11:A" & calcMaxRow("BalanceN-1")
    range_2007 = "A11:A" & calcMaxRow("BalanceN")
  
    y_comparaison = 5
   
     For Each cellule_2008 In Worksheets("BalanceN").Range(range_2008)
        If Worksheets("balanceN-1").Range(range_2007).Find(cellule_2008.Value, LookIn:=xlValues) Is Nothing Then
        Sheets("ComparaisonBalanceN-1").Cells(y_comparaison, 1).Value = cellule_2008.Value
        Sheets("ComparaisonBalanceN-1").Cells(y_comparaison, 2).Value = cellule_2008.Offset(, 1).Value
            y_comparaison = y_comparaison + 1
        End If
    Next cellule_2008
End Sub

Function calcMaxRow(une_feuille As String)
    Dim y As Integer

    y = 11
    Do While Sheets(une_feuille).Cells(y, 1) <> ""
        y = y + 1
    Loop
  
    calcMaxRow = y - 1
End Function

Je remercie vivement la personne qui pourra solutionner ce problème

Bonne soirée

Salut

La fonction calcMaxRow() ne renvoie rien !

Amicalement

Bonjour,
Je ne pense pas que ce soit la fonction qui est en cause car le code a bien fonctionné jusqu'à ce que j'ajoute la ligne suivante :
Sheets("ComparaisonBalanceN-1").Cells(y_comparaison, 2).Value = cellule_2008.Offset(, 1).Value

et même avec cette ligne, il fonctionne bien sur un classeur mais pas sur l'autre. C'est la où je ne comprends pas.

Pourquoi fonctionne t-il sur un classeur et pas sur l'autre ??????

Merci pour toute aide

Salut,

Cela ne marche pas... mais y a t'il un message d'erreur ?

autre chose : la propriété Cells s'applique a la propriété Worksheets et pas a la propriété Sheets. en general c'est de la que viennent les problemes

A+

Bonsoir,

il n'y a pas de message d'erreur simplement la ligne est surlignée en jaune.

Re,
J'ai modifié la procédure 1 comme suit :

range_2007 = "A11:A" & calcMaxRow("balanceN")
  range_2008 = "A11:A" & calcMaxRow("balanceN-1")
 A présent, j'au l'erreur suivante :
"erreur d'éxécution 1004
erreur définie par l'application ou par l'objet"

est_ce toujours la meme ligne qui est surlignée en jaune ?

Oui, c'est toujours la même ligne qui est soulignée. Ce qui est curieux, c'est que j'ai fait cette même application sur un autre classeur et ça marche. Mais je voudrais savoir pourquoi ça ne marche pas ici d'autant plus que j'ai fait copier coller pour le code.!!!!!!!!!!!!!!

comme deja dit plus haut:

la propriété Cells s'applique a la propriété Worksheets et pas a la propriété Sheets. en general c'est de la que viennent les problemes.

Autrement dit instabilite du code.

Et d'ailleur pour s'en persuader, il suffit, dans le code, de positionner le curseur sur la propriete cells et d'appuyer sur la touche F1.
Puis en haut de la page d'aide de cliquer sur: S'applique a

et de voir une liste :

Application Object
Range Collection
Worksheets Object

mais pas la propriete sheets

pour completer, j'ajouterais que ce type d'instabilite peu meme existeren utlisant les objets et collection de liste donnee dans mon precedent message.

en cela peu fonctionner quand la feuille a la qu'elle s'applique la propriete Cells est active puis ne plus fonctionner quand cette meme feuille n'est plus active.

pour finir vas voir ici un exemple d'utilisation de cette propriete cells associee a une declaration With