message d'alerte quand colonne pleine

[Mimi]

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

 

[Staple1600]

Re : message d'alerte quand colonne pleine

Bonsoir Mimi


Pas de classeur exemple à se mettre sous la dent ?

Ce serait plus commode pour tester

Et on pourrait voir ce que fait ta macro

 

[Staple1600]

Re : message d'alerte quand colonne pleine

Re


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

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

 

[Mimi]

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

 

[Staple1600]

Re : message d'alerte quand colonne pleine

Bonsoir

Dim L As Integer

🙄

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.

 

[Mimi]

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

 

[Staple1600]

Re : message d'alerte quand colonne pleine

Bonjour


Version testée et résultat OK

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

 

[Mimi]

Re : message d'alerte quand colonne pleine

Bonjour Staple1600,

Rien à dire sa marche nickel

A bientôt sur le forum et encore merci

Michel