Discussion :

[Fab5676]

Bonjour à tous,

J'ai un fichier excel avec un masque de saisie qui vient remplir un tableau, lignes après lignes.
Sauf que j'ai un petit souci pour enregistrer une saisie dans un tableau excel à la suite de la dernière ligne remplie dans ce tableau.
En effet, tout fonctionne bien si le tableau est complètement affiché, par contre si je me mets à utiliser des filtres sur une des colonnes, ma macro est incapable de retrouver la dernière ligne saisie si elles sont toutes masquées (ou la dernière).

Ma macro:


Le problème dans ma macro vient du "End(xlDown)" qui, lorsque le filtre est en place, est donc incapable de retrouver cette ligne.
J'ai pensé à une solution: compter le nombre de valeur saisies dans la colonne A et dire à la macro que l'enregistrement de la nouvelle saisie doit se faire sur la nouvelle ligne = dernière valeur colonne A + 1...

Mais je suis novice en macro et là je bloque, si quelqu'un peut m'aider

Merci !!

[mercatog]

Essaies

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NewRow=sheet.Cells(sheet.rows.count,1).end(xlup).row+1

[Fab5676]

Merci pour ton retour mais pas mieux !!!

La réaction est la même qu'avant c'est à dire que :
- de base mes intitulés de colonnes avec filtre sont en ligne 6
- avec le filtre par exemple les lignes 7 à 18 sont masquées
- au lieu d'écrire sur la 19 la saisie se fait en ligne 7, donc écrase les données qui y étaient déjà présente.

[Philippe Tulliez]

Bonjour,
Personnellement je travaille avec un objet Range et sa propriété CurrentRegion et le fait que la plage soit filtrée ne pose pas de problème.
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub t()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion
 MsgBox "Numéro de la prochaine ligne libre " & rng.Rows.Count + 1
End Sub

Si la plage de cellules ne commence pas à la première ligne, par exemple à la sixième, il faut utiliser la propriété Row en plus
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub t()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("db").Range("A6").CurrentRegion
 With rng
  MsgBox "Numéro de la prochaine ligne libre " & .Row + .Rows.Count
 End With
End Sub

[Fab5676]

Bonjour Philippe,

Merci pour ton retour, j'ai donc repris tes dires pour l'intégrer et ça marche nickel !!
Un grand merci !
Si je peux abuser, j'ai un seul souci qui est que cette fonction ne marche pas avec une feuille verrouillée... Ce que je souhaite car ce fichier est à destination d'une multitude d'utilisateurs !

Voilà comment ça se présente:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub EnregistrerSaisie()
    Dim sheet
    Dim newRow As Integer
    Dim rng As Range
 
    Set sheet = ActiveWorkbook.Sheets("Suivi Souffrances")
    Set rng = ActiveWorkbook.Sheets("Suivi Souffrances").Range("A1").CurrentRegion
    newRow = rng.Rows.Count + 1
 
    sheet.Cells(newRow, 1).Value = CDate(BDate_constat)
    sheet.Cells(newRow, 2).Value = UCase(TextBox2.Text)

[Philippe Tulliez]

Bonjour,
Effectivement cela ne fonctionne pas avec une feuille protégée. J'ai d'ailleurs toujours trouvé cela curieux car la propriété End fonctionne avec une feuille protégée.
Je suppose que tu connais le mot de passe donc je te conseille de déprotéger la feuille par code VBA et la protéger avec la propriété UserInterfaceOnly
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub EnregistrerSaisie()
 Dim sht As Worksheet, rng As Range
 Dim newRow As Integer
 Set sht = ActiveWorkbook.Sheets("db") ' Sheets("Suivi Souffrances")
 With sht
 .Unprotect "Toto" ' Déprotection de la feuille
 .Protect "Toto", UserInterfaceOnly:=True ' Protection seulement pour User
  Set rng = .Range("A1").CurrentRegion
 End With
 newRow = rng.Rows.Count + 1
End Sub

[Fab5676]

Re,

J'ai fais tes manip et donc les petits soucis :
- Mot de passe: je n'en ai justement pas mis pour éviter l'oubli, mais de fait avec cette macro, il me demande un mot de passe quand même, et je ne peux donc rien y renseigner.
L'objectif d'avoir mis un mot de passe est seulement de ne pas permettre à l'utilisateur de modifier la forme ni supprimer les lignes car il y a des textes cachés dans les colonnes plus loin de mon fichier.
- Avec cette protection, je n'arrive plus à utiliser les boutons de filtre... bizarre alors que tout est bien paramétré pour permettre le filtre.

Je vais réfléchir à tout cela ce WE et me replonger dedans Lundi.
Merci en tout cas et bon WE !

[Philippe Tulliez]

Bonjour,
Si tu n'as pas mis de mot de passe, il suffit de l'enlever et si tu as prévu que l'utilisateur puisse filtrer les données malgré la protection de la feuille, il te suffit d'utiliser les arguments prévus à cet effet. Utilise l'enregistreur de macros pour connaître les arguments et les valeurs exactes.

[Fab5676]

Bonjour Philippe,

Merci pour ton retour, maintenant tout fonctionne à souhait !

Encore merci pour ton aide !