Problème d'exécution macro [Résolu]

[Alex.d]

Bonjour,

J'ai un problème lorsque j'exécute mon code, on dirait que rien ne ce passe pour certains macro.

Je me demandais si vous auriez une idée pourquoi les macro suivants pourrait ne pas s'exécuter.

pour insérer une ligne au dessus de chaque ligne total :

Code :

1
2
3
4
5
6
7
8
Sub AJOUTEREMPLOYE()
LR = Range("B300").End(xlUp).Row
    For X = LR To 1 Step -1
        If Cells(X, "B").Value = "TOTAL" Then
                Cells(X, "B").EntireRow.Insert
        End If
    Next X
End Sub

Pour supprimer une ligne qui comporte la même valeur que (Sourcee)

Code :

1
2
3
4
5
6
7
8
9
Sub Deleter()
LR = Range("B300").End(xlUp).Row
Source = Range("sourcee")
    For X = LR To 1 Step -1
        If Cells(X, "B").Value = Source Then
                Cells(X, "B").EntireRow.Delete
        End If
    Next X
End Sub

Merci!
Alexandre

[alsimbad]

au niveau du code, pour moi, il fonctionne
est ce que toutes tes macros sont bloquée ? ou seulement celles là?

[Alex.d]

Bonjour,

J'ai seulement les 2 qui marche pas!

Je vous joint le document! si vous pouvez me dire si cela marche de votre ordinateur!

merci!
Alex

[corona]

Bonjour,
Pour une raison que je ne m'explique pas et je n'ai pas le temps de chercher, ton problème vient de la ligne

Code :

LR = Range("B300").End(xlUp).Row

Pour t'en convaincre, dès que tu ajoutes un nom, place toi en B300 et utilises le raccoucis clavier Ctrl+flèche vers le haut. Tu arrives à la cellule B1 alors qu'il y a des cellules remplies avant cela.
Donc LR = 1 et forcément la procédure ne parcourt aucune cellule

[Alex.d]

merci!

je ne comprend pas pourquoi, mais j'ai pris une ancienne version et cela marche! donc je vais recommencer avec les même codes!

merci!

[corona]

Bonjour,
Petite parenthèse,
Il est inutile dans tes procédures de faire un copier/Collage Spécial avec Select etc..

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub AjouterNOm()
LR = Range("B300").End(xlUp).Row
Source = Range("nomajouter")
    Range("nomajouter").Select
    Range("nomajouter").Copy
    For X = LR To 1 Step -1
        If Cells(X, "B").Value = "" Then
              Cells(X, "B").PasteSpecial
        End If
    Next X
End Sub

Le code ci-dessous fonctionne tout aussi bien et est plus rapide.

Code :

1
2
3
4
5
6
7
8
9
Sub AjouterNOm()
 LR = Range("B300").End(xlUp).Row
 Source = Range("nomajouter")
 For X = LR To 1 Step -1
   If Cells(X, "B").Value = "" Then
     Cells(X, "B") = Range("nomAjouter")
   End If
 Next X
End Sub

[gFZT82]

Bonjour,

Dans ta colonne B, de la ligne 219 à la ligne 543, tes cellules contiennent des valeurs (valeur 1 ou caractère -).
Aussi, la ligne de code Range("B300").End(xlUp).Row retourne la valeur LR= 1.
Si tu supprimes ces tirets, tout doit rentrer dans l’ordre.

Cordialement.