Discussion :

[lenul78570]

Bonjour
Le code ci-dessous me donne satisfaction si je commence mes saisies dès la première ligne (1).
Mon souci c'est que je veux que ce contrôle ne se fasse qu'à partir de la la ligne 12 et je ne sais pas comment indiquer cette information à ma macro.
Merci de votre aide
Lenul

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub controlesaisie()
'
' controlesaisie Macro
'
 
'
    Dim Lg, cel As Range, Plg As Range
    Lg = Range("m2012").End(xlUp).Row + 1
    Set Plg = Range("a" & Lg & ":d" & Lg & ",f" & Lg & ",i" & Lg & ",l" & Lg)
    For Each cel In Plg
    If cel = "" Then
    cel.Activate
    MsgBox (Cells(11, cel.Column) & Chr(10) & "Veuillez renseigner cette cellule!")
    Exit Sub
    End If
    If WorksheetFunction.CountA(Plg) = 7 Then Range("m" & Lg) = "ok"
    Next cel
 
End Sub

[aalex_38]

Code :

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

Lg = Range("m2012").End(xlUp).Row + 1

normalement avec ce code Lg est la première ligne vide au dessus de la ligne 2012 dans la colonne M.
Si ta colonne M est vide sauf avec un titre en ligne 11 par exemple, ton code devrait fonctionner, sinon donne nous plus de précision sur ce qui ne marche pas.

[lenul78570]

Bonjour Aalex
Voici des infos complémentaires
les cellules A1:A10, B1:B10 sont fusionnées et ont du texte
Les cellules C1:F10 sont vides
Les cellules G1:G9 ont du texte, g10 est vide
Les cellules H1,I1 et J1 sont fusionnées, même chose pour les lignes 2 à 9 et ont du texte
Les cellules H10,I10 et J10 sont vides
Les cellules k1:M10 sont vides
Les cellules A1 à M11 sont mes titres de colonnes

Ma macro fonctionne pour la ligne 12, mais exemple si j'oublie de renseigner la cellule L13 que je sélectionne la cellule M13 et que je lance ma macro il ne se passe rien !

[lenul78570]

Re
Milles escuses une erreur c'était glissée dans mon code.....
ça fonctionne!
Merci
Lenul