Décalage de ma formule VBA après incrémentation de lignes

MACx

XLDnaute Occasionnel
Bonjour à vous,

SVP j'ai un méga problème que je n'arrive pas à résoudre, et je vous avoue ne pas avoir su comment chercher sur le site si mon problème avait déjà été posé auparavant.
Voilà, donc ci-joint un fichier avec plusieurs feuilles, mais seule la feuille VALIDATION nous intéresse ici:

Il y a un code VBA sur la feuille Validation que voici :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Column = 11 Then
    If Target = "Non Envoyée" Or Target = "A Envoyer" Or Target = " -" Then
             Cells(Target.Row, "L").ClearContents
         Else
             Cells(Target.Row, "L") = Date
    End If
 End If
     
 If Target.Column = 9 Then
     If Target = "Validée" Then
            Cells(Target.Row, "J") = Date
        Else
            Cells(Target.Row, "J").ClearContents
    End If
 End If

 If Target.Column = 5 Then
     If Target = 0 Then
            Cells(Target.Row, "I") = "Facture à 0"
            Cells(Target.Row, "K") = " -"
         Else
            Cells(Target.Row, "I").ClearContents
     End If
 End If
End Sub

Selon le libellé de la colonne I sélectionné, il y aura des petits changements sur la colonne K (au niveau du libellé) et de couleur sur les colonnes A, B & I comme vous pourrez le constater.

Je suis amateur en VBA alors je ne sais pas si par rapport à ce que j'ai fait, il y'a plus simple ou plus intelligent mais en tous cas le résultat fonctionne comme je le désire... enfin presque !

Mon problème est que au fur et à mesure que des lignes s'incrémentent (en ligne 2 uniquement) dans la feuille Validation, les valeurs des colonnes I à L ne suivent plus (vers le bas).

Comment puis-je faire pour que ce décalage se fasse de manière "régulière".
Je ne comprends pas pourquoi l'incrémentation de ligne décale mon code et donc mes valeurs des cellules de I à L.

J'espère avoir été assez clair, et merci d'avance à ceux qui pourront m'aider !
 

Pièces jointes

  • XLD_MACxValFA.xlsm
    60.7 KB · Affichages: 55
  • XLD_MACxValFA.xlsm
    60.7 KB · Affichages: 54
  • XLD_MACxValFA.xlsm
    60.7 KB · Affichages: 62

MACx

XLDnaute Occasionnel
Re : Décalage de ma formule VBA après incrémentation de lignes

Si si mon problème est toujours là. Dès que je clique sur Actualiser. TOUTES les cellules de ma colonne (L) 'Notification se remettent en "Non Envoyée" :(
 

Pierrot93

XLDnaute Barbatruc
Re : Décalage de ma formule VBA après incrémentation de lignes

Re,

mêrme problème pour moi... pas les sources pour tester... mais essaie en mettant des points d'arrêts sur les différents événements pour voir ce que tu peux faire avec avec la variable "b"
 

Pierrot93

XLDnaute Barbatruc
Re : Décalage de ma formule VBA après incrémentation de lignes

Re,

petite remarque, je pense que le résultat de ta requête externe ne devrait pas se placer sur les colonnes où se trouve tes formules.... préférable de les isoler, car comment empêcher que la requête s'exécute sur ces même colonnes... perso vois pas trop...
 

MACx

XLDnaute Occasionnel
Re : Décalage de ma formule VBA après incrémentation de lignes

Merci pour ce petit tuto ! :)

alors, donc je fait F9 puis dès mon premier F8 j'obtiens une erreur :
"Erreur de compilation: Variable non définie" (je clique sur OK)

Private Sub Worksheet_Calculate() (est surligné jaune)
b = (est surligné bleu)
 

MACx

XLDnaute Occasionnel
Re : Décalage de ma formule VBA après incrémentation de lignes

Ah désolé, le psot #37 s'est affiché en retard.
Ma requête externe ne concerne que les colonnes A à G. Est-ce que cela a une importance/conséquence quand même ?

Dommage, Teamviewer est très pratique parfois ;)
 

Pierrot93

XLDnaute Barbatruc
Re : Décalage de ma formule VBA après incrémentation de lignes

Bonjour,

Là où tu vois ecrit "Voie Postale" à l'origine, par défaut il y a cette formule: =SI([@Etat]="Validée";"A Envoyer";"Non Envoyée")

effectivement pas de formule sur ton fichier mais à la place une liste de validation.... en l'état perso peux pas grand chose pour toi...

bonne journée
@+
 

MACx

XLDnaute Occasionnel
Re : Décalage de ma formule VBA après incrémentation de lignes

Voici avec les formules
Merci bcp ! :)
 

Pièces jointes

  • XLD_ValFA_TestMars2015.xlsm
    63.5 KB · Affichages: 41
  • XLD_ValFA_TestMars2015.xlsm
    63.5 KB · Affichages: 37
  • XLD_ValFA_TestMars2015.xlsm
    63.5 KB · Affichages: 40

Discussions similaires

Statistiques des forums

Discussions
312 332
Messages
2 087 362
Membres
103 528
dernier inscrit
maro