Discussion :

[Tournament]

Bonjour,

je suis tout nouveau inscrit sur ce site que je visitais régulièrement auparavant
J aurais besoin de vos précieux conseils ; désolé pour la rédaction de ce message mais je suis vraiment un débutant en la matière
Je n'arrive pas au début de la macro à afficher dans le 1er msgbox le contenu de la 1ère cellule non vide d'une colonne ( il s'agit d'une heure que je souhaite faire apparaitre dans le msgbox au format heure )
cette cellule se trouvant dans une autre feuille du classeur

Je suis désolé de vous transmettre le détail de la macro ainsi mais je ne sais pas comment faire pour vous la présenter au bon format !!!

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 Sub SauvegardeEtatParcMLA()
 
' Contrôle d'une sauvegarde du jour dèjà faite  
    LHeure = Time
    If Sheets("Synthèse MLA").Range("AD2").Value = 1 Then
    ret = MsgBox("La sauvegarde des données de ce jour a déjà été réalisée à  " & Format(LHeure, "hh:mm") & Chr(10) & Chr(10) & " Souhaitez vous continuer ?",       vbYesNo + vbInformation)
    If ret = vbNo Then
    Exit Sub
    End If
    End If
    Sheets("Synthèse MLA").Select
 
 
'Désactive la protection de la feuille de synthèse
 
    ActiveSheet.Unprotect "BONSAI"
 
'Copie les éléments du jour
 
    Range("E2:E21").Select
    Selection.Copy
    Range("H65000").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("F8").Select
    ActiveWindow.SmallScroll ToRight:=9
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("N7").Select
    Range("K13").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("B1").Select
 
'réactive la protection de la feuille de synthèse
 
    ActiveSheet.Protect "BONSAI", True, True, True
'Active la macro pour la transmission du document par mail
 
    Call TransmissionMailRotation
 
 
End Sub

[Denis_67]

Salut,
Essaye cela

Code :

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

1
2
3
4
5
6
7
8
 
Sub msgbox_heure()
'Je me positionne en haut de la colonne en question
Range("C1").Select
'Je recherche la première cellule non vide (équivalent à touche (CTRL + flèche bas)
    Selection.End(xlDown).Select
MsgBox ActiveCell.Value
End Sub

Denis.

PS: inutile de t'excuser, de dire que tu fréquentes le forumetc ,
Ici tu viens, tu poses le mieux possible ta question et tout le monde fais de son mieux pour te répondre.
à bientôt.

[Tournament]

Bonsoir Denis et merci pour ta réponse
En fait, mes explications n'étaient pas claires :
J'essaie d'être plus explicite....

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
' Contrôle d'une sauvegarde du jour dèjà faite  
    LHeure = Time 'je ne suis pas certain de cela
    If Sheets("Synthèse MLA").Range("AD2").Value = 1 Then
    ret = MsgBox("La sauvegarde des données de ce jour a déjà été réalisée à  " & Format(LHeure, "hh:mm") & Chr(10) & Chr(10) & " Souhaitez vous continuer ?",       vbYesNo + vbInformation) 'ce msgbox doit récupérer et afficher le contenu d'une cellule qui se trouve dans la feuille "synthèse" il s'agit de la 1ere cellule non vide de la colonne I 
' il me semble qu il faut utiliser Range("I65000").End(xlUp).Offset(1).value  mais je n arrive pas à l'insérer et aussi définir le format heure "hh:mm"
'je pense que dans le message de la box Format(LHeure,"hh:mm") n'est pas bon 
 
    If ret = vbNo Then
    Exit Sub
    End If
    End If
    Sheets("Synthèse MLA").Select
 
 
'Désactive la protection de la feuille de synthèse
 
    ActiveSheet.Unprotect "BONSAI"
 
'Copie les éléments du jour
 
    Range("E2:E21").Select
    Selection.Copy
    Range("H65000").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("F8").Select
    ActiveWindow.SmallScroll ToRight:=9
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("N7").Select
    Range("K13").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("B1").Select
 
'réactive la protection de la feuille de synthèse
 
    ActiveSheet.Protect "BONSAI", True, True, True
'Active la macro pour la transmission du document par mail
 
    Call TransmissionMailRotation
 
 
End Sub

[Denis_67]

Essaye comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub msgbox_heure()
'Je me positionne en haut de la colonne en question
Range("C1").Select
'Je recherche la première cellule non vide (équivalent à touche (CTRL + flèche bas)
    Selection.End(xlDown).Select
'Format(CDate(Me.TextBox1), "hh:mm")
MsgBox Format(CDate(ActiveCell.Value), "hh:mm")
End Sub

Denis

[Tournament]

Ok j'essaie cela demain ...et je te tiens au courant
Là c'est dodo et à la Réunion il fait froid ( !!!! ) 26° et il est 22h chez nous
merci