Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 tester la dernière ligne NON vide col A et contrôler si col 20 est NON vide

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,

J'ai un souci de code que je ne sais pas écrire :

Je voudrais que le code teste la colonne 20 de la dernière ligne "NON vide" :

If dernière ligne NON vide, colonne, 20) = "" Then
MsgBox ("Vous avez déjà une ligne ajoutée à remplir !" & nbcel)
Exit Sub
End If

Pourriez-vous m'aider ?
Avec mes remerciements,
Amicalement,
lionel,
 
Trier par date Trier par votes

Usine à gaz

XLDnaute Barbatruc
Re-JM,

Merci d'être là : Remarque judicieuse (comme d'hab)

Mais si car la dernière ligne NON vide, peut ne pas être complètement remplie.
Contrôler si la colonne 20 de la dernière ligne est NON vide permet d'être certain que toute la ligne est remplie.

Je pourrais aussi dire comme ça :
Contrôler si la colonne 20 de la dernière ligne est NON vide colonne a permet d'être certain que toute la ligne est remplie.
soit :
If dernière ligne NON vide en colonne A, la colonne, 20) = "" Then
MsgBox ("Vous avez déjà une ligne ajoutée à remplir !" & nbcel)
Exit Sub
End If

lionel,
 
Dernière édition:
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

Voir ce bout de code (en guise d'esquisse)
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 20 Then
If Application.CountBlank(Cells(Target.Row, 1).Resize(, 20)) > 0 Then
MsgBox "Saisie incomplète!", vbCritical, "Erreur"
End If
End If
End Sub
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Re-Re- et Re JM,

Ton code marche super bien ... déjà un grand merci

Mais ... LOL
J'aurais besoin (plutôt que de le mettre dans le code de la feuille) :
de le mettre au début d'un code dans un module.
je cherche à modifier sans succès (j'suis pas encore doué en VBA

Tu peux encore m'aider ?
lionel,
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
C'est bon, j'ai trouvé
VB: 
Sub Macro1()
If Application.CountBlank(Cells(ActiveCell.Row, 1).Resize(, 2)) > 0 Then
MsgBox "Saisie incomplète!", vbCritical, "Erreur"
Else
MsgBox "Saisie bonne!", vbCritical, "Erreur"
Exit Sub
End If
End Sub

Un grand Merci
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

J'ai déjà du te faire la remarque (en toute amicale ironie
Un barbatruc devrait être capable de faire cette simple modif
(Transvaser le code d'une procédure évenementielle dans un module standard)
Surtout que désormais tu fais du peer to peer avec un membre du forum
(Cela doit donc être trés formateur niveau VBA)

Il y a rien de bien compliqué niveau modif, non?
VB: 
Sub Arthour_et_sonpoildanslamain()
If ActiveCell.Column = 20 Then
If Application.CountBlank(Cells(ActiveCell.Row, 1).Resize(, 20)) > 0 Then
MsgBox "Saisie incomplète!", vbCritical, "Erreur"
End If
End If
End Sub

EDITION: Ah finalement, le poil commence à raccourcir
Sinon pourquoi parler de la colonne 20 alors que désormais dans ta modif
ce n'est plus le cas?
Et pourquoi ton second Msgbox affiche un beau vbCritical alors que le saisie est censée être bonne?
Et pourquoi le titre a été changé (et donc la question)?
Ce qui fait que ma proposition ne correspond plus au titre...
 
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Désolé, j'y reviens car après d'autres tests, ça ne fonctionne pas.

Certainement que je me suis encore mal exprimé LOL.

Je reformule :
Je voudrais qu'en cliquant n'importe où dans la feuille, le code teste dans la dernière ligne NON vide de la colonne A si la cellule colonne 20 de la même ligne est NON vide

Fichier test joint : dernière ligne NON vide en A
= ligne 5
= colonne NON vide = T5
Avec mes reciements,
lionel,
 

Pièces jointes

  • test_DerniereLigne_col20.xlsm
    15.8 KB · Affichages: 3
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

J'ai ouvert ta PJ
et ce que j'y lis est quelque peu "irritant"
Je voudrais qu'en cliquant n'importe où le code teste
dans la dernière ligne NON vide de la colonne A
si la cellule colonne 20 de la même ligne est NON vide
Cliquez pour agrandir...
Ce qui implique forcément une procédure évenmentielle (donc dans le code de la feuille)
Or tu disais plus bas que tu voulais le code dans un module...
Alors fais ton choix, camarade (ou sois juste cohérent)
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Dans ce cas, pourquoi avoir prétendu le contraire précedemment?
Aucun bénéficie (à part une perte de temps)

Donc une procédure évenementielle (qui sera vite "fatiguante" à l'usage)
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range
Set x = Cells(Rows.Count, 1).End(3)
If Not IsEmpty(x) And Len(x.Offset(, 19)) Then
MsgBox "Saisie OK", vbInformation
Else
MsgBox "Saisie incorrecte", vbCritical
End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 Sélectionner plusieurs plages jusqu'à la dernière ligne NON vide en col "E"
Réponses
5
Affichages
293
Usine à gaz
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
166
AlCapone
  • Question Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
586
Usine à gaz
  • Résolu(e)
XL 2016 Mettre la même couleur de la dernière cellule colorée
Réponses
5
Affichages
343
TooFatBoy
  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
2 K
patricktoulon
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
587
escudo
E
  • Résolu(e)
XL 2021 VBA sélectionner 10 lignes sous dernière cellule colonn A NON VIDE
2
Réponses
20
Affichages
1 K
TooFatBoy
J
  • Question Question
XL 2013 Boucle : copie valeur d'une table dans un autre onglet jusqu'à cellule non vide
Réponses
4
Affichages
389
jerome91
J
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
294
Affichages
67 K
ChTi160
G
  • Question Question
XL 2016 Bug dans Données/Convertir si cellule de la ligne 1 vide ?
Réponses
7
Affichages
543
Guy_M
G
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
974
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
178
sebastien176
S
J
  • Résolu(e)
Autres Ligne de macro Dernière colonne non vide
Réponses
2
Affichages
593
Jacky 17
J
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
146
escudo
E
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
398
ZiM
Z
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
700
Messan
L
  • Question Question
Microsoft 365 Report de valeur d'une cellule dans une autre cellule en fonction de la dernière cellule non vide d'une ligne
Réponses
1
Affichages
1 K
sylvanu
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
577
Usine à gaz
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
327
eric72
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…