Validation montant suivant tableau

[jorisphi]

Bonjour à tous

J'aimerai faire appel à votre aide
J'aimerai que le montant d'une cellule soit acceptée ou rejetée si elle correspond ou pas à un montant d'un tableau (repris sur un autre onglet)

Je joins mon fichier qui sera plus explicite

D'avance Grand merci
Cordialement
Jorisphi



Cijoint.fr - Service gratuit de dépôt de fichiers

 

[PMO2]

Re : Validation montant suivant tableau

Bonjour,

Je relève une contradiction dans votre énoncé (voir passage en rouge)

Si Type "A" :
La Cellule "R3" dans l'onglet "P1 Formatif" ne correspond pas à C4 (soit 100 dans l'exemple)
La Cellule "R3" dans l'onglet "P2 Formatif" ne correspond pas à D4 (soit 100 dans l'exemple)
La Cellule "R3" dans l'onglet "P3 Formatif" ne correspond pas à E4 (soit 100 dans l'exemple)
La Cellule "R3" dans l'onglet "P4 Formatif" ne correspond pas à F4 (soit 200 dans l'exemple)

La Cellule "R3" dans l'onglet "P1-2 Certificatif" ne correspond pas à I4 (soit 250 dans l'exemple)
La Cellule "R3" dans l'onglet "P3-4 Certificatif" ne correspond pas à J4 (soit 250 dans l'exemple)

Si Type "B" :
La Cellule "R3" dans l'onglet "P1 Formatif" ne correspond pas à C5 (soit 200 dans l'exemple)
La Cellule "R3" dans l'onglet "P1 Formatif" ne correspond pas à D5 (soit 100 dans l'exemple)

Pouvez-vous reformuler votre demande ?

Cordialement.

PMO
Patrick Morange

 

[jorisphi]

Re : Validation montant suivant tableau

Cher Patrick
Grand merci pour réponse
En Effet, il y a une contradiction. Excusez-moi

"Si Type "B" :
La Cellule "R3" dans l'onglet "P1 Formatif" ne correspond pas à C5 (soit 200 dans l'exemple)
La Cellule "R3" dans l'onglet "P2 Formatif" ne correspond pas à D5 (soit 100 dans l'exemple)
Etc… "

Je vous joins le fichier corrigé
Cijoint.fr - Service gratuit de dépôt de fichiers
D'avance un Tout Tout grand merci pour votre aide
A Bientôt
Cordialement
Jorisphi



----------------------------------------------------------------------------------
Bonjour,

Je relève une contradiction dans votre énoncé (voir passage en rouge)

Pouvez-vous reformuler votre demande ?

Cordialement.

PMO
Patrick Morange

 

[PMO2]

Re : Validation montant suivant tableau

Bonjour,

Je n'ai pas bien compris mais, à tout hasard, essayez de copier le code suivant dans la fenêtre de code de ThisWorkbook

Const PLAGE As String = "A1:K10"
Const COTES As String = "Cotations"

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim R As Range
Dim var
Dim A$
Dim B$
Dim i&
Dim ligne&
Dim colonne&
Set R = Sheets(COTES).Range(PLAGE)
var = R
A$ = UCase(Sh.[b1])
'--- Supprime les espaces ---
For i& = 1 To Len(A$)
  If Mid(A$, i&, 1) <> Chr(32) Then B$ = B$ & Mid(A$, i&, 1)
Next i&
'--- Trouve la ligne ---
For i& = 1 To UBound(var, 1)
  If UCase("Type" & Trim(var(i&, 1))) = B$ Then
    ligne& = i&
    Exit For
  End If
Next i&
'--- Trouve la colonne ---
For i& = 1 To UBound(var, 2)
  If var(2, i&) = Sh.Name Then
    colonne& = i&
    Exit For
  End If
Next i&
'--- Si différence l'affiche ---
If ligne& > 0 And colonne& > 0 Then
  If Sh.[r3].Value <> var(ligne&, colonne&) Then
    MsgBox "Différence" & vbCrLf & _
      Sh.Name & " R3 = " & Sh.[r3] & vbCrLf & _
      COTES & " = " & var(ligne&, colonne&)
    
    '### votre traitement ###
    
  End If
End If
End Sub

Cordialement.

PMO
Patrick Morange

 

[jorisphi]

Re : Validation montant suivant tableau

Cher Patrick

Grand merci pour votre programmation
Cependant, elle ne s'execute pas
Peut-être une fausse manoeuvre de ma part, car je suis encore un débutant en VBA
Mais grâce à vous , je vais progresser
Je joins mon fiichier avec la copie de votre VBA dans This Workbook
Pouvez-vous jeter un coup d'oeil ?.....

D'avance Merci
Cordialement
Jorisphi
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[PMO2]

Re : Validation montant suivant tableau

Bonjour,

1) ne pas faire

[COLOR="Red"]Private Sub Workbook_Open()[/COLOR]
Const PLAGE As String = "A1:K10"
Const COTES As String = "Cotations"
[COLOR="red"]End Sub[/COLOR]

mais faire

Const PLAGE As String = "A1:K10"
Const COTES As String = "Cotations"

2) le code évènementiel répond à l'évènement Calculate.
Dans le fichier précédent toutes les cellules "R3" des feuilles Px
contenaient une formule ( =I3+P3 ) ce qui n'est pas le cas du fichier actuel.
Remettez ces formules.

Cordialement.

PMO
Patrick Morange

 

[jorisphi]

Re : Validation montant suivant tableau

Cher Patrick

MAGNIFIQUE !........J'ai suivi vos conseils et çà fonctionne !........
Encore un TOUT grand MERCI pour votre aide précieuse
(J'ai encore appris)

Autre petite question :
Si j'encode directement en R3 les cotations imposées suivant mon tableau de Référence,(Donc sans la formule I3 +P3) la programmation changerait-elle beaucoup ?
Serait-ce beaucoup de travail de votre part ?
Car j'ai aussi ce cas dans un autre application
Si non, pourrais-je vous demander de modifier votre programmation?...

Merci d'avance
Très cordialement
jorisphi