Bonjour à tous,
j'ai un problème avec deux macros (macros que j'ai récupérées ici merci pour
leur auteur)
1° Comment faire pour vérifier sur deux colonne? voici le code
je veux faire ma verif sur A et F
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'colonne à "surveiller" (ici colonne A)
If Target.Column = 1 Then
‘ pour vérifier si la saisie n'existe pas déjà dans les lignes précédentes
If Application.WorksheetFunction. _
CountIf(Range(Cells(2, 1), _
Cells(Target.Row, 1)), Target.Value) > 1 Then
' pour vérifier si la saisie n'existe pas déjà dans la colonne
If Application.WorksheetFunction. _
CountIf(Range("A:A"), Target.Value) > 1 Then
MsgBox "Number has been used -- Try again"
Target.Value = ""
Target.Select
End If
End If
End Sub
2° Problème quand je vide les cellules???? voici le code
Sub Vidanger()
If MsgBox("Attention toutes vos informations" & Chr(13) _
& "vont êtres supprimées!" & Chr(13) _
& "Voulez-vous continuer?", vbCritical + vbYesNo, "Avertissement!") = vbYes
Then
Range("A13:C62,F13:H62,A66:C115,F66:H115,A119:C168,F119:H168,A172:C221,F172:H221,A225:C274,F225:H274,A278:C327,F278:H327,A331:C380,F331:H380,A384:C433,F384:H433,A437:C486,F437:H486,A490:C539,F490:H539").Select
Selection.ClearContents
Range("A13").Select
End If
End Sub
Un grand merci à tous pour votre aide!
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
2° Problème quand je vide les cellules???? voici le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range) if selection.count>1 then exit sub 'ici la suite du blabla end sub
PS : Mettre dans l'objet "Problème urgent" c'est pas ce qui se fait de mieux ! * Aucune indication du type de question * Pour ce qui est du terme "urgent", pour les bénévoles un dimanche à 19h, c'est un peu "raide" !
AV
2° Problème quand je vide les cellules???? voici le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if selection.count>1 then exit sub
'ici la suite du blabla
end sub
PS : Mettre dans l'objet "Problème urgent" c'est pas ce qui se fait de mieux !
* Aucune indication du type de question
* Pour ce qui est du terme "urgent", pour les bénévoles un dimanche à 19h, c'est
un peu "raide" !
2° Problème quand je vide les cellules???? voici le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range) if selection.count>1 then exit sub 'ici la suite du blabla end sub
PS : Mettre dans l'objet "Problème urgent" c'est pas ce qui se fait de mieux ! * Aucune indication du type de question * Pour ce qui est du terme "urgent", pour les bénévoles un dimanche à 19h, c'est un peu "raide" !
AV
STEN83
Pardon pour l'"URGENT" je ne savais pas merci pour la réponse
2° Problème quand je vide les cellules???? voici le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range) if selection.count>1 then exit sub 'ici la suite du blabla end sub
PS : Mettre dans l'objet "Problème urgent" c'est pas ce qui se fait de mieux ! * Aucune indication du type de question * Pour ce qui est du terme "urgent", pour les bénévoles un dimanche à 19h, c'est un peu "raide" !
AV
Pardon pour l'"URGENT" je ne savais pas merci pour la réponse
2° Problème quand je vide les cellules???? voici le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if selection.count>1 then exit sub
'ici la suite du blabla
end sub
PS : Mettre dans l'objet "Problème urgent" c'est pas ce qui se fait de mieux !
* Aucune indication du type de question
* Pour ce qui est du terme "urgent", pour les bénévoles un dimanche à 19h, c'est
un peu "raide" !
Pardon pour l'"URGENT" je ne savais pas merci pour la réponse
2° Problème quand je vide les cellules???? voici le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range) if selection.count>1 then exit sub 'ici la suite du blabla end sub
PS : Mettre dans l'objet "Problème urgent" c'est pas ce qui se fait de mieux ! * Aucune indication du type de question * Pour ce qui est du terme "urgent", pour les bénévoles un dimanche à 19h, c'est un peu "raide" !
