- Voici une partie de code détaillée d’une de nos fonctions :
-
- 'ceci est la fonction : ajouter un nouveau fournisseur
- Private Sub Valider_ajout_fournisseur_Click() 'lorsqu'on appuye sur le bouton « valider »:
-
- ajout_telephonefixe_fournisseur = Format(ajout_telephonefixe_fournisseur, "00 00 00 00 00 ") ' Ceci indique à Excel que les valeurs rentrées sont deschiffres
-
- Dim I As Integer, nbLignes As Long ' Ceci appelle des sous programmes déjà définis
-
-
- Sheets("Fournisseurs").Activate 'Active la feuille nommée
- « Fournisseurs »
-
- nbLignes = PremiereLigneVide(1) ' Définit la première ligne vide des cellules
-
- If ajout_nom_fournisseur.Value <> "" Then 'test s’il y a une valeur déjà entrée
- For I = 2 To nbLignes 1 ' on part de la deuxième ligne jusqu’a la dernière -1
-
- If ajout_nom_fournisseur.Value = Range("A" & I).Value Then
- ' Test si le nom rentré existe déjà
-
- MsgBox "Ce nom existe déjà"
- Exit Sub
- End If
- Next
-
-
- If InStr(1, ajout_email_fournisseur.Text, "@") > 0 Then ' le texte contient-il un @ ?
-
- 'place comme il faut les différentes caractéristiques
- Range("A" & nbLignes) = ajout_nom_fournisseur
- Range("B" & nbLignes) = ajout_adresse_fournisseur
- Range("C" & nbLignes) = ajout_codepostal_fournisseur
- Range("D" & nbLignes) = ajout_ville_fournisseur
- Range("E" & nbLignes) = ajout_pays_fournisseur
- Range("F" & nbLignes) = ajout_telephonefixe_fournisseur
- Range("G" & nbLignes) = ajout_fax_fournisseur
- Range("H" & nbLignes) = ajout_email_fournisseur
- Range("I" & nbLignes) = ajout_remarques_fournisseur
- Range("J" & nbLignes) = Date
-
- Else
- MsgBox "Mauvaise adresse email" ' Indique dans le cas où il n y a pas d’@ en affichant un message
-
- End If ' Fin de la condition
- Else ' S‘il n y pas de nom, cela effectue les actions qui suivent
-
- MsgBox "Vous n'avez pas entré un nom de fournisseur", _
- vbCritical + vbOKOnly, "Erreur nom fournisseur"
- End If ' Fin de la condition
-
- End Sub ' Fin de la fonction
Voici une partie de code détaillée d’une de nos fonctions :
'ceci est la fonction : ajouter un nouveau fournisseur
Private Sub Valider_ajout_fournisseur_Click() 'lorsqu'on appuye sur le bouton « valider »:
ajout_telephonefixe_fournisseur = Format(ajout_telephonefixe_fournisseur, "00 00 00 00 00 ") ' Ceci indique à Excel que les valeurs rentrées sont deschiffres
Dim I As Integer, nbLignes As Long ' Ceci appelle des sous programmes déjà définis
Sheets("Fournisseurs").Activate 'Active la feuille nommée
« Fournisseurs »
nbLignes = PremiereLigneVide(1) ' Définit la première ligne vide des cellules
If ajout_nom_fournisseur.Value <> "" Then 'test s’il y a une valeur déjà entrée
For I = 2 To nbLignes 1 ' on part de la deuxième ligne jusqu’a la dernière -1
If ajout_nom_fournisseur.Value = Range("A" & I).Value Then
' Test si le nom rentré existe déjà
MsgBox "Ce nom existe déjà"
Exit Sub
End If
Next
If InStr(1, ajout_email_fournisseur.Text, "@") > 0 Then ' le texte contient-il un @ ?
'place comme il faut les différentes caractéristiques
Range("A" & nbLignes) = ajout_nom_fournisseur
Range("B" & nbLignes) = ajout_adresse_fournisseur
Range("C" & nbLignes) = ajout_codepostal_fournisseur
Range("D" & nbLignes) = ajout_ville_fournisseur
Range("E" & nbLignes) = ajout_pays_fournisseur
Range("F" & nbLignes) = ajout_telephonefixe_fournisseur
Range("G" & nbLignes) = ajout_fax_fournisseur
Range("H" & nbLignes) = ajout_email_fournisseur
Range("I" & nbLignes) = ajout_remarques_fournisseur
Range("J" & nbLignes) = Date
Else
MsgBox "Mauvaise adresse email" ' Indique dans le cas où il n y a pas d’@ en affichant un message
End If ' Fin de la condition
Else ' S‘il n y pas de nom, cela effectue les actions qui suivent
MsgBox "Vous n'avez pas entré un nom de fournisseur", _
vbCritical + vbOKOnly, "Erreur nom fournisseur"
End If ' Fin de la condition
End Sub ' Fin de la fonction