Problème d'exécution macro

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

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

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

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

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!

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

---

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.