Problème sur une sélection Range qui echoue : Erreur 1004

Fermé

gp_aixperience - 29 juil. 2013 à 14:24
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 30 juil. 2013 à 08:47

Bonjour,

J'ai un problème que je ne comprend pas sur excel.
Voici mon code:

Private Sub SuppressionRessources(nof, lg)
    Dim vn As String
    vn = 0
    Cells(lg, 24).Value = vn
    For Each cl In Sheets("Ressources").Range("PourcentageRessources")
        If CStr(nof) = CStr(cl.Value) Then
            cl.Value = ""
        End If
    Next
End Sub

Ma déclaration de variable vn était pour tester simplement ! La valeur passer à "lg" est "35"

L'erreur se situe sur la ligne :

 Cells(lg, 24).Value = vn

Si je l'enlève mon code marche sinon j'ai une erreur de range. De plus lorsque je la commente Excel me demande si je veux réinitialiser mon projet.

Je ne comprend pas mais cela doit être sûrement une erreur toute bête mais je n'arrive pas à la trouvé !

Cordialement

A voir également:

Problème sur une sélection Range qui echoue : Erreur 1004
La méthode range de l'objet worksheet a échoué ✓ - Forum VB / VBA
Telechargement du firmware a echoue - Forum Box et Streaming vidéo
La connexion a échoué - Forum Réseaux sociaux
Inverser selection excel - Forum Excel
Out of range ✓ - Forum Matériel & Système

2 réponses

Réponse 1 / 2

gp_aixperience
29 juil. 2013 à 15:02

Petite mise à jour !! Pas sur que cela vienne de cette ligne au final !
Voici mon code prédécesseur :


If Not Intersect(Target, Range("TabRessources,TabRetards")) Is Nothing Then
        'RECUPERATION DES COORDONNEES DE LA CELLULE QUI A CHANGER DE VALEUR'
        Dim of As String
        cl = Target.Column
        rw = Target.Row
        of = Cells(rw, cl - 9).Value
        heureDebutJournee = Cells(2, 12).Value
        heureDansJournee = Cells(2, 13).Value
        If Target.Value <> "" Then
            While of <> ""
                Call SuppressionRessources(of, rw)
                of = remplirTab(of, rw, cl)
                rw = rechercheRwOF(of)
            Wend
        End

Je pense que le problème se situe a ce niveau là ! Voila pour le petit up!

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
30 juil. 2013 à 08:47

bonjour,
Explications incompréhensibles !

mais mauvaise syntaxe
Call SuppressionRessources(of, rw)
écrire plutôt
suppressionRessources of, rw
tu appelles une macro paramétrée , pas une fonction
call à supprimer

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA Methode range a échouée

input signal out of range

VBA : Range avec références variables..

Outil sélection Adobe Illustrator

Discussions similaires

Newsletters