Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.