Bonjour,
je rencontre un probleme lors de l'utilisation de ma macro.
L'objectif de cette macro est de remplir une ligne (et une seule) uniquement si celle ci est vide.
Les lignes sélectionnées sont de 4 à 12.
Si je viens à remplir une ligne, c'est à dire si une ligne est vide, alors je passe un booleen à faux et je sors de la boucle (afin de ne remplir qu'une seule ligne)
ex :
Quand le macro se lance, il doit vérifier si ma case B4 est vide. SI tel est le cas, alors il me lancera les instructions du if.
Sinon, il me test la case B5. Ainsi de suite jusqu'à 12.
Admettons que je remplisse la case B8, je veux sortir de ma boucle pour ne plus tester les cases suivantes car je viens de remplir une ligne.
Merci de vérifier la macro suivante et de m'aider à résoudre mon probleme
Code :
Sub ajoutersalarie
Dim oDocument As Object, oSheet As Object, oCell As Object
Dim saisie as String
Dim ok As Boolean
Dim compteur as Integer
oDocument=ThisComponent
oSheet=oDocument.Sheets.getByName("SALARIES" )
ok=false
For compteur=4 To 12
oCell=oSheet.getCellByPosition(0,compteur)
Do [While ok = false]
If (ocell.getstring="" ) Then
saisie = InputBox ("Quel est le nom du salarié?","Ajouter un salarié","",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(1,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est le prénom du salarié?","Ajouter un salarié","",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(2,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est l'adresse du salarié?","Ajouter un salarié","ex: 16, rue des Hesperides",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(3,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est le code postal du salarié?","Ajouter un salarié","ex: 59320",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(4,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est la ville du salarié?","Ajouter un salarié","ex: Bordeaux",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(5,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est le numéro de sécurité sociale du salarié?","Ajouter un salarié","ex: 1 68 10 59 150 090 03",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(6,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est l'emploi du salarié?","Ajouter un salarié","ex: Vendeur",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(7,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est le status du salarié?","Ajouter un salarié","cadre ou non cadre",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(8,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est le salaire brut du salarié (en euros)?","Ajouter un salarié","ex: 1500,00",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(9,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("oCell=oSheet.getCellByPosition(0,0)Quel est le pourcent du salarié?","Ajouter un salarié","ex: 0,50%",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(10,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est l'avantage du salarié?","Ajouter un salarié","ex: 250,00",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(11,compteur)
oCell.setString(cStr(saisie))
saisie = InputBox ("Quel est le nombre d'heure/semaine du salarié?","Ajouter un salarié","ex: 35",3000,3000 ) ',3000,3000 donne la position d'ouverture de la fenetre
oCell=oSheet.getCellRangeByName(12,compteur)
oCell.setString(cStr(saisie))
ok=true
else
print "erreur"
End If
End Do
End For
End Sub
Message édité par kevcaus le 26-11-2005 à 11:33:09
jack.legs@gmail.com 
kangol 
