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

message d'alerte quand colonne pleine

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Mimi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Mimi

XLDnaute Occasionnel
Bonjour à tous,
Je voudrais savoir si c'est possible de créer une alerte quand ma colonne est pleine.
Je m'explique :
en feuille 1 je remplis des celulles, ensuite avec une macro je les transferts sur la feuille 2, dans une colonne de la feuille 2 il i a en f40 une formule, et c'est la que je voudrais créer sur la feuille 1 une alerte m'indiquant que j'arrive à la celulle f39 de la feuille 2, pour m'arrêter de transférer.
D'avance merci
Michel
 
Trier par date Trier par votes
Re : message d'alerte quand colonne pleine

Re


Pour saluer le requin et s'amuser avec lui dans les eaux du forum.

Code: 
Sub a()
Dim S_TOP As Range, alerte$, titre$
Set S_TOP = Sheets(2).[F39]
titre = "MESSAGE D'ALERTE"
alerte = "La cellule F39 n'est plus vierge" & Chr(10)
alerte = alerte & "Sa valeur est : " & S_TOP & Chr(10) & Chr(10)
alerte = alerte & "Voila vous avez été alerter."
If (IsNumeric(S_TOP) And Not IsEmpty(S_TOP)) Then
MsgBox alerte, vbCritical, titre
End If
End Sub
 
Vote positif 0 Vote négatif
Re : message d'alerte quand colonne pleine

Bonjour à tous,
Comme je ne peux pas envoyer mon fichier (trop lourd) je vous mets le code quand je transfert les données sur la feuille 2 :

Sub ValiderArrhes()
Dim L As Integer
L = Sheets("ImpArrhes").Range("C65530").End(xlUp).Row + 1
With Sheets("ImpArrhes")
.Range("C" & L) = Sheets("Arrhes").Range("D11").Value
.Range("E" & L) = Sheets("Arrhes").Range("F17").Value
.Range("F" & L) = Sheets("Arrhes").Range("D21").Value
End With

Dim S_TOP As Range, alerte$, titre$
Set S_TOP = Sheets("ImpArrhes").[F39]
titre = "MESSAGE D'ALERTE"
alerte = "La cellule F39 n'est plus vierge" & Chr(10)
alerte = alerte & "Sa valeur est : " & S_TOP & Chr(10) & Chr(10)
alerte = alerte & "Voila vous avez été alerter."
If (IsNumeric(S_TOP) And Not IsEmpty(S_TOP)) Then
MsgBox alerte, vbCritical, titre
End If

End Sub

Stapple1600 ton code me convient mais il faudrait aussi que sa m'empèche d'aller plus loin.

le fichier : http://cjoint.com/?eiji1w503K

Merci
Michel
 
Dernière édition:
Vote positif 0 Vote négatif
Re : message d'alerte quand colonne pleine

Bonsoir

Code: 
Dim L As Integer
🙄
Code: 
Dim L As Long
🙂🙂

Et les Dim généralement sont mis au début de la macro. (tous les Dim)

EDITION: Pour infos
En allégeant ton fichier (suppression des fioritures *: Images + Style perso)
et en compressant ton fichier en *.zip, tu peux joindre directement ton fichier dans ton message sur le forum sans passer par cjoint.

*: ce n'est pas utile pour un fichier exemple, seul le code de ta macro et les données brutes suffises pour faire un test.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : message d'alerte quand colonne pleine

Bonjour Staple1600,
Je sais pas si j'ai mal fait voici le code modifier :

Option Explicit

Sub ValiderArrhes()
Dim S_TOP As Range, alerte$, titre$
Dim L As Long

L = Sheets("ImpArrhes").Range("C65530").End(xlUp).Row + 1
With Sheets("ImpArrhes")
.Range("C" & L) = Sheets("Arrhes").Range("D11").Value
.Range("E" & L) = Sheets("Arrhes").Range("F17").Value
.Range("F" & L) = Sheets("Arrhes").Range("D21").Value
End With

Set S_TOP = Sheets("ImpArrhes").[F39]
titre = "MESSAGE D'ALERTE"
alerte = "La cellule F39 n'est plus vierge" & Chr(10)
alerte = alerte & "Sa valeur est : " & S_TOP & Chr(10) & Chr(10)
alerte = alerte & "Voila vous avez été alerter."
If (IsNumeric(S_TOP) And Not IsEmpty(S_TOP)) Then
MsgBox alerte, vbCritical, titre
End If

End Sub

Si c'est dans le bon ordre, cela n'empèche pas d'écrire sur la celulle F40, et sa m'éfface
la formule. Je ne suis pas trop doué en VBA

Cordialement
Michel
 
Vote positif 0 Vote négatif
Re : message d'alerte quand colonne pleine

Bonjour


Version testée et résultat OK

Code: 
Sub ValiderArrhes()
Dim S_TOP As Range, alerte$, titre$, L As Long

With Sheets("ImpArrhes")
    Set S_TOP = .[F39]
    titre = "MESSAGE D'ALERTE"
    alerte = "La cellule F39 n'est plus vierge" & Chr(10)
    alerte = alerte & "Sa valeur est : " & S_TOP & Chr(10) & Chr(10)
    alerte = alerte & "Voila vous avez été alerter."
        If (IsNumeric(S_TOP) And Not IsEmpty(S_TOP)) Then
        MsgBox alerte, vbCritical, titre
        Else
        L = .Range("C65530").End(xlUp).Row + 1
        .Range("C" & L) = Sheets("Arrhes").Range("D11").Value
        .Range("E" & L) = Sheets("Arrhes").Range("F17").Value
        .Range("F" & L) = Sheets("Arrhes").Range("D21").Value
        End If
End With

End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Question Question
Microsoft 365 agrandir la liste
2
Réponses
21
Affichages
649
ebe
E
P
  • Résolu(e)
XL 2021 Formule avec SI ET et si possible plusieurs ET
Réponses
4
Affichages
300
PR.
P
C
  • Question Question
XL 2021 msgBox message d'alerte
Réponses
2
Affichages
330
candido57
C
E
  • Résolu(e)
Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?
2
Réponses
20
Affichages
728
Elnono51
E
M
  • Résolu(e)
XL 2019 saisie sur la première ligne vide depuis un formulaire
Réponses
8
Affichages
433
Mimi1952
M
M
  • Résolu(e)
XL 2016 Faire une alerte
Réponses
5
Affichages
305
marc94600
M
G
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
288
ALS35
A
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
304
Cousinhub
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
784
lynyrd
  • Résolu(e)
XL 2016 [Résolu]Message d'alerte si deux cases à cocher vrai
Réponses
12
Affichages
556
Phil69970
R
  • Résolu(e)
XL 2019 recherche dans plage
Réponses
10
Affichages
581
AtTheOne
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
984
job75
G
  • Question Question
Microsoft 365 Lenteur chargement ListView
2 3
Réponses
38
Affichages
1 K
GClaire
G
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
252
treza88
  • Résolu(e)
Microsoft 365 Tableau de STATS sur autre feuille
Réponses
8
Affichages
575
AtTheOne
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
575
fanch55
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
1 K
Nain porte quoi
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
760
mromain
N
  • Résolu(e)
Microsoft 365 Lien vers une feuille du classeur
Réponses
2
Affichages
602
Nathan027
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…