macro test journée

[al1000]

bonjour


comment ecrire la maco:


si le dernier n° de journée inscrite dans la colonne a est
different du n° de journée en a5

alors je met une boite de dialogue

cliquer sur oui pour copier la case e1 puis efface la cellule e1

si non arreter la macro

 

[vbacrumble]

Re : macro test journée

Bonsoir

Sub macro()
Dim dervalcola As Range
Set dervalcola = [A65536].End(xlUp)
If Not IsEmpty(dervalcola) And dervalcola <> [A5] Then
If MsgBox("Copie/Effacement en E1", vbYesNo, "Copie") = 6 Then
'mais copier E1 vers quoi ?  ici copie en F1
Range("E1").Copy Range("F1")
Range("E1").ClearContents
Else
Exit Sub
End If
End If
End Sub

A+

 

[al1000]

Re : macro test journée

bonjour

If MsgBox("Copie/Effacement en E1", vbYesNo, "Copie") = 6 Then

pourquoi =6?

a+

 

[skoobi]

Re : macro test journée

Bonsoir al1000,

comme vbacrumble est absent:

pourquoi =6?

cela correspond à la valeur de la constante vbYes (7 pour vbNo).

 

[vbacrumble]

Re : macro test journée

Re, Bonsoir Skoobi


skoobi:Merci pour la suppléance

al1000: donc tu veux copier E1 dans quelle cellule avant de l'effacer ?


A+

 

[al1000]

Re : macro test journée

Bonjour,

comment ecrire la macro si nous avons aucune date dans la colonne a alors on n'affiche pas la mg box: copier et affacement oui non?


a+

 

[vbacrumble]

Re : macro test journée

Bonjour


Je répète la question:

Tu veux la coller ou ta cellule E1?

Testes le code ci-dessous
(avec en colonne A des cellules vides ou du texte et des dates)

Sub macro()
Dim chk
Dim nl
Dim dervalcola As Range
Dim plage As Range
Dim c As Range
Set dervalcola = [A65536].End(xlUp)
Set plage = Range("A8:A" & dervalcola.Row)
nl = plage.Rows.Count
For Each c In Range("A8:A" & dervalcola.Row)
If IsDate(c) Then chk = chk + 1
Next
If Not IsEmpty(dervalcola) And dervalcola <> [A5] And (chk - nl) = 0 Then
If MsgBox("Copie/Effacement en E1", vbYesNo, "Copie") = 6 Then
'mais copier E1 vers quoi ?  ici copie en F1
Range("E1").Copy Range("F1")
Range("E1").ClearContents
Else
Exit Sub
End If
End If
End Sub

A+

 

[al1000]

Re : macro test journée

bonjour

dans une nouvelle feuille en a1


a+

 

[al1000]

Re : macro test journée

Bonjour,

comment ecrire la macro si nous avons aucune date dans la colonne a alors on n'affiche pas la mg box: copier et affacement oui non?


a+

 

[vbacrumble]

Re : macro test journée

Re



J'ai édité mon précédent message

avec une nouvelle version de macro


A+

 

[al1000]

Re : macro test journée

bonjour

merci

chl
n1
dervercola
se sont des variables???

est ce que nous pouvons les appeler a
b
et c


pouquoi et comment comprendre l'ecriture de la macro:


Dim plage As Range
Dim c As Range
Set dervalcola = [A65536].End(xlUp)
Set plage = Range("A8:A" & dervalcola.Row)
nl = plage.Rows.Count
For Each c In Range("A8:A" & dervalcola.Row)
If IsDate(c) Then chk = chk + 1


a+

 

[vbacrumble]

Re : macro test journée

Re



Voici la macro commentée

Sub macro()
Dim WS As Worksheet
Dim Feuille As Worksheet
Dim chk
Dim nl
Dim dervalcola As Range, plage As Range, c As Range
'nom de la feuille ou sont les données
Set Feuille = Sheets("Feuil3")
With Feuille
'dernière cellule colonne A
    Set dervalcola = .[A65536].End(xlUp)
'plage de cellules censés contenir des dates
    Set plage = .Range("A8:A" & dervalcola.Row)
'comptage du nombre de lignes de la plage
    nl = plage.Rows.Count
'vérification du format des cellules (Est-ce des dates ?)
    For Each c In .Range("A8:A" & dervalcola.Row)
    If IsDate(c) Then chk = chk + 1
    Next
'test conditions réuinies pour lancer MSgBox
    If Not IsEmpty(dervalcola) And dervalcola <> [A5] And (chk - nl) = 0 Then
    If MsgBox("Copie/Effacement en E1", vbYesNo, "Copie") = 6 Then
    Randomize
'création d'une nouvelle feuille
    Set WS = Sheets.Add
'attribution nom aléatoire
    WS.Name = "Nouvelle feuille " _
    & Int(CDbl(Time) * 10000)
'recopie E1 vers A1 de la nouvelle feuille
    .Range("E1").Copy WS.Range("A1")
'effacement E1
    .Range("E1").ClearContents
    Else
    Exit Sub
    End If
    End If
End With
End Sub

Des questions ?

A+

 

[al1000]

Re : macro test journée

bonjour,


que veux dire:Set dervalcola


existe il un dictionnaire pour mieux comprendre le langage?

a+