Ne pas démarrer une VBA si (C6"") + message

Le
clyver
Bonjour le forum,

j'ai trois petite questions :

1/ j'aimerais ne pas activé ma macro si C6 n'est pas renseigner!
voici la macro qui se trouve dans un module d'une classeur :
Sub Recopie()
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "F" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone,
0).Row).Value = Sheets("Equipements").Range("B7",
Sheets("Equipements").Range("G7").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C7",
Sheets("Equipements").Range("D7").Offset(Zone, 0)).ClearContents
End Sub

2/ j'aimerai ne pas activé ma VBA si D6 n'est pas renseigner!
voici la macro qui se trouve sur la feuil1(Equipements) d'un autre
classeur :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Saisie Date par Franck Marian 27 Février 2008
Dim zone As Integer
If stopevt = True Then Exit Sub
If Target = Range("C3") Then
zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + zone,
0).Row).Value = Sheets("Equipements").Range("B6",
Sheets("Equipements").Range("E6").Offset(zone, 0)).Value
stopevt = True
Sheets("Equipements").Range("C6",
Sheets("Equipements").Range("D6").Offset(zone, 0)).ClearContents
stopevt = False
End If
Call incremente
End Sub

3/ si la cellule C6 où D6 est pas renseigner ne pas activer la macro
par contre j'aimerai avoir un message avertissement du type ci dessous
mais rien de sur?

If Range("D8").Value = "soudures" Then
With Range("K20").Validation
.InputTitle = "Saisir le Nb de soudures !"
.InputMessage = "Nb de soudures ! Merci"
.ErrorTitle = "Attention!"
.ErrorMessage = "Nb de soudures! "
.ShowInput = True


Cordialement Franck
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5430771
Bonjour.
1.
Sub Recopie()
If [C6] = "" then
MsgBox "C6 non renseigné"
Exit Sub
End If
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "F" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone,
0).Row).Value = Sheets("Equipements").Range("B7",
Sheets("Equipements").Range("G7").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C7",
Sheets("Equipements").Range("D7").Offset(Zone, 0)).ClearContents
End Sub

2.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Saisie Date par Franck Marian 27 Février 2008
Dim zone As Integer
If [D6] = "" then
MsgBox "D6 non renseigné"
Exit Sub
End If
If stopevt = True Then Exit Sub
If Target = Range("C3") Then
zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + zone,
0).Row).Value = Sheets("Equipements").Range("B6",
Sheets("Equipements").Range("E6").Offset(zone, 0)).Value
stopevt = True
Sheets("Equipements").Range("C6",
Sheets("Equipements").Range("D6").Offset(zone, 0)).ClearContents
stopevt = False
End If
Call incremente
End Sub

3. J'ai incorporé un message d'erreur.

Cordialement.
Daniel

"clyver"
Bonjour le forum,

j'ai trois petite questions :

1/ j'aimerais ne pas activé ma macro si C6 n'est pas renseigner!
voici la macro qui se trouve dans un module d'une classeur :
Sub Recopie()
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "F" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone,
0).Row).Value = Sheets("Equipements").Range("B7",
Sheets("Equipements").Range("G7").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C7",
Sheets("Equipements").Range("D7").Offset(Zone, 0)).ClearContents
End Sub

2/ j'aimerai ne pas activé ma VBA si D6 n'est pas renseigner!
voici la macro qui se trouve sur la feuil1(Equipements) d'un autre
classeur :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Saisie Date par Franck Marian 27 Février 2008
Dim zone As Integer
If stopevt = True Then Exit Sub
If Target = Range("C3") Then
zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "D" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + zone,
0).Row).Value = Sheets("Equipements").Range("B6",
Sheets("Equipements").Range("E6").Offset(zone, 0)).Value
stopevt = True
Sheets("Equipements").Range("C6",
Sheets("Equipements").Range("D6").Offset(zone, 0)).ClearContents
stopevt = False
End If
Call incremente
End Sub

3/ si la cellule C6 où D6 est pas renseigner ne pas activer la macro
par contre j'aimerai avoir un message avertissement du type ci dessous
mais rien de sur?

If Range("D8").Value = "soudures" Then
With Range("K20").Validation
.InputTitle = "Saisir le Nb de soudures !"
.InputMessage = "Nb de soudures ! Merci"
.ErrorTitle = "Attention!"
.ErrorMessage = "Nb de soudures! "
.ShowInput = True


Cordialement Franck
clyver
Le #5430631
Bonsoir le forum

Merci a toi Daniel cela me va à merveille encore merci bonne semaine

Amicalement

Franck
clyver
Le #5430591
Bonsoir le forum

Salut Daniel!

j'ai un pb sur la 1er macro
debug sur la ligne :
Sheets("Equipements").Range("C7",
Sheets("Equipements").Range("D7").Offset(Zone, 0)).ClearContents

sur la marco ci dessous
1.
Sub Recopie()
If [C6] = "" then
MsgBox "C6 non renseigné"
Exit Sub
End If
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "F" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone,
0).Row).Value = Sheets("Equipements").Range("B7",
Sheets("Equipements").Range("G7").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C7",
Sheets("Equipements").Range("D7").Offset(Zone, 0)).ClearContents
End Sub

merci
Daniel.C
Le #5430541
C'est la faute à OE qui coupe les lignes. Les deux lignes ne doivent qu'en
faire une seule. Fais attention, ce n'est peut-être pas la seule.
Daniel
"clyver"
Bonsoir le forum

Salut Daniel!

j'ai un pb sur la 1er macro
debug sur la ligne :
Sheets("Equipements").Range("C7",
Sheets("Equipements").Range("D7").Offset(Zone, 0)).ClearContents

sur la marco ci dessous
1.
Sub Recopie()
If [C6] = "" then
MsgBox "C6 non renseigné"
Exit Sub
End If
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "F" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone,
0).Row).Value = Sheets("Equipements").Range("B7",
Sheets("Equipements").Range("G7").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C7",
Sheets("Equipements").Range("D7").Offset(Zone, 0)).ClearContents
End Sub

merci
clyver
Le #5430471
Re bonjour Daniel coucou au Forum aussi!

je n'y arrive pas je te joint mon fichier encore mille merci

Le lien a été créé: http://cjoint.com/?ehjFdL0hWm
Daniel.C
Le #5430431
Bonjour.
Dis-moi ce que tu veux faire.
Daniel
"clyver"
Re bonjour Daniel coucou au Forum aussi!

je n'y arrive pas je te joint mon fichier encore mille merci

Le lien a été créé: http://cjoint.com/?ehjFdL0hWm
clyver
Le #5430401
Bonjour Daniel,

j'aimerai dans ce classeur

mettre un message d'erreur du type merci de saisir votre pseudo et la
date si dans la zone "C7:C8" est vide de plus ne pas activé
l'archivage de la macro "recopie" faire stop si "C7:C8" est rempli
activer la macro "recopie" pour archivage de l'action


merci

Le lien a été créé: http://cjoint.com/?ehjFdL0hWm
clyver
Le #5430391
Bonjour Daniel,

j'aimerai dans ce classeur

mettre un message d'erreur du type merci de saisir votre pseudo et la
date si dans la zone "C7:C8" est vide de plus ne pas activé
l'archivage de la macro "recopie" faire stop si "C7:C8" est rempli
activer la macro "recopie" pour archivage de l'action


merci

Le lien a été créé: http://cjoint.com/?ehjFdL0hWm
Daniel.C
Le #5430361
Sub Recopie()
If [C7] = "" And [C8] = "" Then
MsgBox "Veuillez saisir votre pseudo et la date"
Exit Sub
End If
Zone = Range("B65535").End(xlUp).Row - 6
Sheets("Données").Range("A" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1, 0).Row, "F" &
Sheets("Données").Range("A65535").End(xlUp).Offset(1 + Zone, 0).Row).Value =
Sheets("Equipements").Range("B7",
Sheets("Equipements").Range("G7").Offset(Zone, 0)).Value
Sheets("Equipements").Range("C7",
Sheets("Equipements").Range("D7").Offset(Zone, 0)).ClearContents

End Sub

Daniel
"clyver"
Bonjour Daniel,

j'aimerai dans ce classeur

mettre un message d'erreur du type merci de saisir votre pseudo et la
date si dans la zone "C7:C8" est vide de plus ne pas activé
l'archivage de la macro "recopie" faire stop si "C7:C8" est rempli
activer la macro "recopie" pour archivage de l'action


merci

Le lien a été créé: http://cjoint.com/?ehjFdL0hWm
clyver
Le #5430321
Bonjour le forum!

J'hallucine ça fonction pourtant je vois pas de changement?



le changement viens d'ou????



Amicalement

Franck
Publicité
Poster une réponse
Anonyme