Lebonetletruand
XLDnaute Occasionnel
Bonsoir,
J'ai un petit souci avec la formule ci-dessous. J'ai deux colonnes de taux. L'objectif et que si l'on décide de compléter la première, on doit compléter la seconde, sinon, la première valeur est effacée. J'ai donc créé le code ci-dessous. Seulement, il me propose deux fois l'inputbox que je j'y inscrive quelquechose ou que j'annule. J'ai trituré la syntaxe dans tous les sens en vain. Pourriez vous me venir en aide.
Le résultat souhaité serait :
Clic ok sur msgbox => ouverture de l'inputbox
Clic annuler sur msgbox =>première valeur saisie effacée
Clic sur ok inputbox=>la valeur est saisie en deuxième colonne. Fin.
Clic sur annuler inputbox =>la première valeur saisie est effacée. Fin.
Merci par avance.
J'ai un petit souci avec la formule ci-dessous. J'ai deux colonnes de taux. L'objectif et que si l'on décide de compléter la première, on doit compléter la seconde, sinon, la première valeur est effacée. J'ai donc créé le code ci-dessous. Seulement, il me propose deux fois l'inputbox que je j'y inscrive quelquechose ou que j'annule. J'ai trituré la syntaxe dans tous les sens en vain. Pourriez vous me venir en aide.
Le résultat souhaité serait :
Clic ok sur msgbox => ouverture de l'inputbox
Clic annuler sur msgbox =>première valeur saisie effacée
Clic sur ok inputbox=>la valeur est saisie en deuxième colonne. Fin.
Clic sur annuler inputbox =>la première valeur saisie est effacée. Fin.
Merci par avance.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 8 To 127
If Cells(i, 5).Value <> "" Then
If Not Cells(i, 6).Value <> "" Then
Msg = "Les colonnes relatives aux taux de concentration ne sont à utiliser que lorsque le taux de matière active proposé par le fournisseur diffère du taux théorique prévu dans le listing de prévision de commande proposé aux adhérents à la commande groupée." & Chr(13) & Chr(13) & " La saisie d'une information dans la colonne ' Taux de concentration matière active proposé par le fournisseur ' exige le renseignement de la colonne ' Taux de concentration théorique de la matière active ' pour un même produit"
Style = vbOKCancel + vbExclamation
Title = "Erreur d'information de la base"
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then ActiveSheet.Cells(i, 6).Value = InputBox("Veuillez saisir le taux de concentration théorique pour ce produit") Else Cells(i, 5).Value = Null: Exit Sub
If InputBox("Veuillez saisir le taux de concentration annoncé par le fournisseur pour ce produit") = "" Then Cells(i, 5).Value = Null
End If
End If
Next i
Dernière édition: