Incrémentation par formulaire sur "1ère ligne vide" qui ne marche pas.

[alain.raphael]

Bonsoir à Tous,

J'ai créé un formulaire avec quelques champs de données, et avec une liste de personne à cocher par CheckBox....

Chacune des personnes possèdent un feuillet. Si je coche plusieurs personnes, chacune d'elles est incrémentée des données, mais aussi est marquée la liste des noms des autres personnels.

Le formulaire commence par un champs N° automatique.

Seul problème, si le n° du champs est 15 (par exemple), et que je coche pour la 1ère fois un nom.....sur la feuille de cette personne les données vont se mettre sur la ligne 15 au lieu de 1.

Je n'arrive pas à y remédier.... si quelqu'un a une solution...

Je vous montre le code :

Range("A7").Select
'Avertissement que les champs soient remplis
If DatePlongee = "" Or LieuPlongee = "" Or CommunePlongee = "" Or EICSTPlongee = "" Or ButPlongee = "" Or HeureDebutimmersionPlongee = "" Or HeureFinimmersionPlongee = "" Or DureePLongee = "" Or ProfondeurPlongee = "" Or CourantPlongee = "" Or VisibilitePlongee = "" Or TemperaturePlongee = "" Or NomDPPlongee = "" Then
Reponse = MsgBox("Vous avez oublié de remplir certains champs !!", 0, "Informations manquantes")
Else
'NumLigne = N° de ligne de la dernière cellule non vide de la colonne +1
NumLigne = Range("a65536").End(xlUp).Row + 1      'Cells.Find("*", , , , xlByRows, xlPrevious).Row ne marche pas non plus

'insertion des valeurs sur les feuilles individuelles

If CheckBoxA.Value Then
Feuil4.Cells(NumLigne, 2) = Da.Value
Feuil4.Cells(NumLigne, 3) = Lieu.Value
Feuil4.Cells(NumLigne, 4) = Com.Value
Feuil4.Cells(NumLigne, 5) = ComboBoxEICST.Value
Feuil4.Cells(NumLigne, 6) = But.Value
Feuil4.Cells(NumLigne, 7) = Hd.Value
Feuil4.Cells(NumLigne, 8) = Hf.Value
Feuil4.Cells(NumLigne, 9) = Duree.Value
Feuil4.Cells(NumLigne, 10) = Pro.Value
Feuil4.Cells(NumLigne, 11) = ComboBoxCou.Value
Feuil4.Cells(NumLigne, 12) = ComboBoxVisi.Value
Feuil4.Cells(NumLigne, 13) = T.Value
Feuil4.Cells(NumLigne, 14) = ComboBoxDP.Value
  If CheckBoxB.Value Then
  Feuil4.Cells(NumLigne, 17) = "B"
  Else
  Feuil4.Cells(NumLigne, 17) = ""
  End If
  If CheckBoxC.Value Then
  Feuil4.Cells(NumLigne, 18) = "C"
  Else
  Feuil4.Cells(NumLigne, 18) = ""
  End If
  If CheckBoxD.Value Then
  Feuil4.Cells(NumLigne, 19) = "D"
  Else
  Feuil4.Cells(NumLigne, 19) = ""
  End If
Etc….

'Feuil4.Cells(NumLigne, 1) = Range("a65536").End(xlUp).Row + 1

End If
 
'.......B
'Etc..

 If MsgBox("Une fois affectée, Pensez à VALIDER la Plongée", vbOKOnly, "2ème bouton") = vbOK Then
Range("A1").Select
End If
End If

 

[jp14]

Re : Incrémentation par formulaire sur "1ère ligne vide" qui ne marche pas.

Bonjour

Une piste
La ligne de code : NumLigne = Range("a65536").End(xlUp).Row + 1 donne la première ligne libre de la feuille active.
Si on cherche la ligne de la "Feuil4" il faut le spécifier NumLigne = Feuil4.Range("a65536").End(xlUp).Row + 1


JP

 

[alain.raphael]

Re : Incrémentation par formulaire sur "1ère ligne vide" qui ne marche pas.

Un grand merci pour ta piste jp14.... je pense que cela va bien m'aider......

 

[alain.raphael]

Re : Incrémentation par formulaire sur "1ère ligne vide" qui ne marche pas.

Par contre maintenant avec ce code....l'incrémentation se fait toujours sur la même ligne, remplacant la saisie du formulaire précédent....... Ci-joint le code :


If CheckBoxA.Value Then


NumLigne = Feuil4.Range("a65536").End(xlUp).Row + 1
Feuil4.Cells(NumLigne, 2) = Da.Value
Feuil4.Cells(NumLigne, 3) = Lieu.Value
Feuil4.Cells(NumLigne, 4) = Com.Value
Feuil4.Cells(NumLigne, 5) = ComboBoxEICST.Value
Feuil4.Cells(NumLigne, 6) = But.Value
Feuil4.Cells(NumLigne, 7) = Hd.Value
Feuil4.Cells(NumLigne, 8) = Hf.Value
Feuil4.Cells(NumLigne, 9) = Duree.Value
Feuil4.Cells(NumLigne, 10) = Pro.Value
Feuil4.Cells(NumLigne, 11) = ComboBoxCou.Value
Feuil4.Cells(NumLigne, 12) = ComboBoxVisi.Value
Feuil4.Cells(NumLigne, 13) = T.Value
Feuil4.Cells(NumLigne, 14) = ComboBoxDP.Value

 

[jp14]

Re : Incrémentation par formulaire sur "1ère ligne vide" qui ne marche pas.

Bonjour

La recherche de la première ligne se fait sur la colonne "A", les nouvelles données se trouvent dans les colonnes "B" et suivantes.
Il faut chercher la première ligne vide dans la colonne qui contient toujours une information.

JP

 

[alain.raphael]

Re : Incrémentation par formulaire sur "1ère ligne vide" qui ne marche pas.

Merci JP14......Je viens de m'apercevoir grace a vous de mon erreur.......

 

[Paf]

Re : Incrémentation par formulaire sur "1ère ligne vide" qui ne marche pas.

Bonjour à tous,

ou renseigner la cellule en colonne A en rajoutant

Feuil4.Cells(NumLigne, 1) = "Quelque chose "

Bonne suite

 

[Staple1600]

Re : Incrémentation par formulaire sur "1ère ligne vide" qui ne marche pas.

Bonjour à tous


On peut aussi l'écrire ainsi

Feuil4.Cells(NumLigne, "A") = "...de Tennessee"

 

[alain.raphael]

Re : Incrémentation par formulaire sur "1ère ligne vide" qui ne marche pas.

Merci a vous..... C'est exactement ce j'ai fait au niveau de la 1ere ligne.... car on l'a tous en nous.
Je sors.