Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre
un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou
plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a déjà
40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre
un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou
plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a déjà
40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre
un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou
plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a déjà
40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre
un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou
plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a déjà
40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre
un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou
plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a déjà
40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre
un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou
plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a déjà
40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il ne peut pas y avoir plus de 40
employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse son inscription avec un msgbox
disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" <test@test.com> a écrit dans le message de news: eKWCgDuOKHA.4700@TK2MSFTNGP05.phx.gbl...
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il ne peut pas y avoir plus de 40
employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse son inscription avec un msgbox
disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il ne peut pas y avoir plus de 40
employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse son inscription avec un msgbox
disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il ne
peut pas y avoir plus de 40 employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse
son inscription avec un msgbox disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" <test@test.com> a écrit dans le message de news: eKWCgDuOKHA.4700@TK2MSFTNGP05.phx.gbl...
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il ne
peut pas y avoir plus de 40 employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse
son inscription avec un msgbox disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il ne
peut pas y avoir plus de 40 employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse
son inscription avec un msgbox disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver dans
une plage donnée le nombre de cellules qui contiendraient le groupe de
lettres "gar" au milieu d'un paquet de cellules qui pourraient tout aussi
bien s'écrire "regard" que "bigarreau" que "garnote aime bien les
cigares", et là, ça ferait seulement 3, à raison d'une seule détection par
cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" a écrit dans le message de news:
%Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui
mettre un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou
plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a déjà
40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver dans
une plage donnée le nombre de cellules qui contiendraient le groupe de
lettres "gar" au milieu d'un paquet de cellules qui pourraient tout aussi
bien s'écrire "regard" que "bigarreau" que "garnote aime bien les
cigares", et là, ça ferait seulement 3, à raison d'une seule détection par
cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" <garnote3@videotron.ca> a écrit dans le message de news:
%23p77cBvOKHA.1268@TK2MSFTNGP04.phx.gbl...
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" <test@test.com> a écrit dans le message de news:
eKWCgDuOKHA.4700@TK2MSFTNGP05.phx.gbl...
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui
mettre un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou
plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a déjà
40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver dans
une plage donnée le nombre de cellules qui contiendraient le groupe de
lettres "gar" au milieu d'un paquet de cellules qui pourraient tout aussi
bien s'écrire "regard" que "bigarreau" que "garnote aime bien les
cigares", et là, ça ferait seulement 3, à raison d'une seule détection par
cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" a écrit dans le message de news:
%Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui
mettre un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou
plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a déjà
40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Salut André,
Ceci te conviendrait-il ?
Sub gar()
Dim c As Range
Dim n As Long
For Each c In Selection
If InStr(1, c.Value, "gar", vbTextCompare) > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules contenant la chaîne gar au moins une
fois." _
& vbLf & "Les lettres g, a et r peuvent être en majuscule ou en
minuscule."
End Sub
Serge
"AndréBdR" a écrit dans le message de news:
4aba80f2$0$23438$
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver dans
une plage donnée le nombre de cellules qui contiendraient le groupe de
lettres "gar" au milieu d'un paquet de cellules qui pourraient tout aussi
bien s'écrire "regard" que "bigarreau" que "garnote aime bien les
cigares", et là, ça ferait seulement 3, à raison d'une seule détection
par cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" a écrit dans le message de news:
%Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui
mettre un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X
ou plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a
déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Salut André,
Ceci te conviendrait-il ?
Sub gar()
Dim c As Range
Dim n As Long
For Each c In Selection
If InStr(1, c.Value, "gar", vbTextCompare) > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules contenant la chaîne gar au moins une
fois." _
& vbLf & "Les lettres g, a et r peuvent être en majuscule ou en
minuscule."
End Sub
Serge
"AndréBdR" <chuispasla@pasdespam.fr> a écrit dans le message de news:
4aba80f2$0$23438$ba4acef3@news.orange.fr...
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver dans
une plage donnée le nombre de cellules qui contiendraient le groupe de
lettres "gar" au milieu d'un paquet de cellules qui pourraient tout aussi
bien s'écrire "regard" que "bigarreau" que "garnote aime bien les
cigares", et là, ça ferait seulement 3, à raison d'une seule détection
par cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" <garnote3@videotron.ca> a écrit dans le message de news:
%23p77cBvOKHA.1268@TK2MSFTNGP04.phx.gbl...
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" <test@test.com> a écrit dans le message de news:
eKWCgDuOKHA.4700@TK2MSFTNGP05.phx.gbl...
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui
mettre un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X
ou plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a
déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Salut André,
Ceci te conviendrait-il ?
Sub gar()
Dim c As Range
Dim n As Long
For Each c In Selection
If InStr(1, c.Value, "gar", vbTextCompare) > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules contenant la chaîne gar au moins une
fois." _
& vbLf & "Les lettres g, a et r peuvent être en majuscule ou en
minuscule."
End Sub
Serge
"AndréBdR" a écrit dans le message de news:
4aba80f2$0$23438$
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver dans
une plage donnée le nombre de cellules qui contiendraient le groupe de
lettres "gar" au milieu d'un paquet de cellules qui pourraient tout aussi
bien s'écrire "regard" que "bigarreau" que "garnote aime bien les
cigares", et là, ça ferait seulement 3, à raison d'une seule détection
par cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" a écrit dans le message de news:
%Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations
supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui
mettre un X. Par contre, il ne peut pas y avoir plus de 40 employés par
événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X
ou plus, qu'Excel refuse son inscription avec un msgbox disant: Il y a
déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Ou bien :
Sub garminuscule()
Dim c As Range
Dim n As Long
If TypeName(Selection) <> "Range" Then
MsgBox "Il faut sélectionner une plage de cellules" _
& vbLf & "avant de faire appel à moi ;-)"
Exit Sub
End If
For Each c In Selection
If InStr(1, c.Value, "gar") > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellule(s) contenant la chaîne gar au moins une fois." _
& vbLf & "Les lettres g, a et r étant toutes en minuscule."
End Sub
Serge
"garnote" a écrit dans le message de news:
%Salut André,
Ceci te conviendrait-il ?
Sub gar()
Dim c As Range
Dim n As Long
For Each c In Selection
If InStr(1, c.Value, "gar", vbTextCompare) > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules contenant la chaîne gar au moins une fois." _
& vbLf & "Les lettres g, a et r peuvent être en majuscule ou en minuscule."
End Sub
Serge
"AndréBdR" a écrit dans le message de news:
4aba80f2$0$23438$
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver dans une plage donnée le
nombre de cellules qui contiendraient le groupe de lettres "gar" au milieu d'un paquet de
cellules qui pourraient tout aussi bien s'écrire "regard" que "bigarreau" que "garnote aime bien
les cigares", et là, ça ferait seulement 3, à raison d'une seule détection par cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" a écrit dans le message de news:
%Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il
ne peut pas y avoir plus de 40 employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse
son inscription avec un msgbox disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc
Ou bien :
Sub garminuscule()
Dim c As Range
Dim n As Long
If TypeName(Selection) <> "Range" Then
MsgBox "Il faut sélectionner une plage de cellules" _
& vbLf & "avant de faire appel à moi ;-)"
Exit Sub
End If
For Each c In Selection
If InStr(1, c.Value, "gar") > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellule(s) contenant la chaîne gar au moins une fois." _
& vbLf & "Les lettres g, a et r étant toutes en minuscule."
End Sub
Serge
"garnote" <garnote3@videotron.ca> a écrit dans le message de news:
%23RIsaNJPKHA.4700@TK2MSFTNGP05.phx.gbl...
Salut André,
Ceci te conviendrait-il ?
Sub gar()
Dim c As Range
Dim n As Long
For Each c In Selection
If InStr(1, c.Value, "gar", vbTextCompare) > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules contenant la chaîne gar au moins une fois." _
& vbLf & "Les lettres g, a et r peuvent être en majuscule ou en minuscule."
End Sub
Serge
"AndréBdR" <chuispasla@pasdespam.fr> a écrit dans le message de news:
4aba80f2$0$23438$ba4acef3@news.orange.fr...
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver dans une plage donnée le
nombre de cellules qui contiendraient le groupe de lettres "gar" au milieu d'un paquet de
cellules qui pourraient tout aussi bien s'écrire "regard" que "bigarreau" que "garnote aime bien
les cigares", et là, ça ferait seulement 3, à raison d'une seule détection par cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" <garnote3@videotron.ca> a écrit dans le message de news:
%23p77cBvOKHA.1268@TK2MSFTNGP04.phx.gbl...
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" <test@test.com> a écrit dans le message de news:
eKWCgDuOKHA.4700@TK2MSFTNGP05.phx.gbl...
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il
ne peut pas y avoir plus de 40 employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse
son inscription avec un msgbox disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc
Ou bien :
Sub garminuscule()
Dim c As Range
Dim n As Long
If TypeName(Selection) <> "Range" Then
MsgBox "Il faut sélectionner une plage de cellules" _
& vbLf & "avant de faire appel à moi ;-)"
Exit Sub
End If
For Each c In Selection
If InStr(1, c.Value, "gar") > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellule(s) contenant la chaîne gar au moins une fois." _
& vbLf & "Les lettres g, a et r étant toutes en minuscule."
End Sub
Serge
"garnote" a écrit dans le message de news:
%Salut André,
Ceci te conviendrait-il ?
Sub gar()
Dim c As Range
Dim n As Long
For Each c In Selection
If InStr(1, c.Value, "gar", vbTextCompare) > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules contenant la chaîne gar au moins une fois." _
& vbLf & "Les lettres g, a et r peuvent être en majuscule ou en minuscule."
End Sub
Serge
"AndréBdR" a écrit dans le message de news:
4aba80f2$0$23438$
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver dans une plage donnée le
nombre de cellules qui contiendraient le groupe de lettres "gar" au milieu d'un paquet de
cellules qui pourraient tout aussi bien s'écrire "regard" que "bigarreau" que "garnote aime bien
les cigares", et là, ça ferait seulement 3, à raison d'une seule détection par cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" a écrit dans le message de news:
%Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E, informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui mettre un X. Par contre, il
ne peut pas y avoir plus de 40 employés par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X ou plus, qu'Excel refuse
son inscription avec un msgbox disant: Il y a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le fichier.
Merci
marc
Parfait Serge.
Et mille excuses à Marc pour m'être infiltré dans son sujet sans crier
gare.
"garnote" a écrit dans le message de news:Ou bien :
Sub garminuscule()
Dim c As Range
Dim n As Long
If TypeName(Selection) <> "Range" Then
MsgBox "Il faut sélectionner une plage de cellules" _
& vbLf & "avant de faire appel à moi ;-)"
Exit Sub
End If
For Each c In Selection
If InStr(1, c.Value, "gar") > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellule(s) contenant la chaîne gar au moins
une fois." _
& vbLf & "Les lettres g, a et r étant toutes en minuscule."
End Sub
Serge
"garnote" a écrit dans le message de news:
%Salut André,
Ceci te conviendrait-il ?
Sub gar()
Dim c As Range
Dim n As Long
For Each c In Selection
If InStr(1, c.Value, "gar", vbTextCompare) > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules contenant la chaîne gar au moins
une fois." _
& vbLf & "Les lettres g, a et r peuvent être en majuscule ou en
minuscule."
End Sub
Serge
"AndréBdR" a écrit dans le message de news:
4aba80f2$0$23438$
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver
dans une plage donnée le nombre de cellules qui contiendraient le
groupe de lettres "gar" au milieu d'un paquet de cellules qui
pourraient tout aussi bien s'écrire "regard" que "bigarreau" que
"garnote aime bien les cigares", et là, ça ferait seulement 3, à raison
d'une seule détection par cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" a écrit dans le message de news:
%Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E,
informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui
mettre un X. Par contre, il ne peut pas y avoir plus de 40 employés
par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X
ou plus, qu'Excel refuse son inscription avec un msgbox disant: Il y
a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Parfait Serge.
Et mille excuses à Marc pour m'être infiltré dans son sujet sans crier
gare.
"garnote" <garnote3@videotron.ca> a écrit dans le message de news:
OMl0g0JPKHA.4700@TK2MSFTNGP05.phx.gbl...
Ou bien :
Sub garminuscule()
Dim c As Range
Dim n As Long
If TypeName(Selection) <> "Range" Then
MsgBox "Il faut sélectionner une plage de cellules" _
& vbLf & "avant de faire appel à moi ;-)"
Exit Sub
End If
For Each c In Selection
If InStr(1, c.Value, "gar") > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellule(s) contenant la chaîne gar au moins
une fois." _
& vbLf & "Les lettres g, a et r étant toutes en minuscule."
End Sub
Serge
"garnote" <garnote3@videotron.ca> a écrit dans le message de news:
%23RIsaNJPKHA.4700@TK2MSFTNGP05.phx.gbl...
Salut André,
Ceci te conviendrait-il ?
Sub gar()
Dim c As Range
Dim n As Long
For Each c In Selection
If InStr(1, c.Value, "gar", vbTextCompare) > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules contenant la chaîne gar au moins
une fois." _
& vbLf & "Les lettres g, a et r peuvent être en majuscule ou en
minuscule."
End Sub
Serge
"AndréBdR" <chuispasla@pasdespam.fr> a écrit dans le message de news:
4aba80f2$0$23438$ba4acef3@news.orange.fr...
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver
dans une plage donnée le nombre de cellules qui contiendraient le
groupe de lettres "gar" au milieu d'un paquet de cellules qui
pourraient tout aussi bien s'écrire "regard" que "bigarreau" que
"garnote aime bien les cigares", et là, ça ferait seulement 3, à raison
d'une seule détection par cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" <garnote3@videotron.ca> a écrit dans le message de news:
%23p77cBvOKHA.1268@TK2MSFTNGP04.phx.gbl...
Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" <test@test.com> a écrit dans le message de news:
eKWCgDuOKHA.4700@TK2MSFTNGP05.phx.gbl...
Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E,
informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui
mettre un X. Par contre, il ne peut pas y avoir plus de 40 employés
par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X
ou plus, qu'Excel refuse son inscription avec un msgbox disant: Il y
a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
Parfait Serge.
Et mille excuses à Marc pour m'être infiltré dans son sujet sans crier
gare.
"garnote" a écrit dans le message de news:Ou bien :
Sub garminuscule()
Dim c As Range
Dim n As Long
If TypeName(Selection) <> "Range" Then
MsgBox "Il faut sélectionner une plage de cellules" _
& vbLf & "avant de faire appel à moi ;-)"
Exit Sub
End If
For Each c In Selection
If InStr(1, c.Value, "gar") > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellule(s) contenant la chaîne gar au moins
une fois." _
& vbLf & "Les lettres g, a et r étant toutes en minuscule."
End Sub
Serge
"garnote" a écrit dans le message de news:
%Salut André,
Ceci te conviendrait-il ?
Sub gar()
Dim c As Range
Dim n As Long
For Each c In Selection
If InStr(1, c.Value, "gar", vbTextCompare) > 0 Then n = n + 1
Next c
MsgBox "Il y a " & n & " cellules contenant la chaîne gar au moins
une fois." _
& vbLf & "Les lettres g, a et r peuvent être en majuscule ou en
minuscule."
End Sub
Serge
"AndréBdR" a écrit dans le message de news:
4aba80f2$0$23438$
Je l'aime bien ta Macro.
Si j'osais, j'en demanderais un peu plus...
Au lieu de la seule lettre "x" (ou "X"), est-il possible de trouver
dans une plage donnée le nombre de cellules qui contiendraient le
groupe de lettres "gar" au milieu d'un paquet de cellules qui
pourraient tout aussi bien s'écrire "regard" que "bigarreau" que
"garnote aime bien les cigares", et là, ça ferait seulement 3, à raison
d'une seule détection par cellule?
Il s'agirait en gros d'une recherche du style *gar*.
Merci d'avance.
"garnote" a écrit dans le message de news:
%Ou bien quelque chose du genre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ici As Range
Dim n As Long
Set ici = Range("F2:F100")
If Not Intersect(Target, ici) Is Nothing Then
n = Application.CountIf(ici, "x")
If n > 40 Then
Target.Select
Target.ClearContents
MsgBox "Il y a déjà 40 personnes d'inscrites."
End If
End If
End Sub
Cette macro ne fait pas la différence entre x et X
et tu dois entrer un seul x ( X ) à la fois.
Serge
"marc" a écrit dans le message de news:Bonjour à vous tous
Voici mon problème.
Pour chacune des colonnes (De F à S), il y a des événements.
Pour la colonne A, j'ai le nom des employés( B jusqu'à E,
informations supplémentaires).
Lorsque je vais inscrire un employé pour un événement, je vais lui
mettre un X. Par contre, il ne peut pas y avoir plus de 40 employés
par événement.
J'aimerais avoir une macro qui dit que lorsque je mettrai le 41ième X
ou plus, qu'Excel refuse son inscription avec un msgbox disant: Il y
a déjà 40 personnes d'inscrites.
En espérant avoir été assez clair, sinon, je pourrai vous envoyer le
fichier.
Merci
marc
> Et pour compter le nombre de cellules contenant
la chaîne gar une seule fois :
> Et pour compter le nombre de cellules contenant
la chaîne gar une seule fois :
> Et pour compter le nombre de cellules contenant
la chaîne gar une seule fois :
Et pour compter le nombre de cellules contenant
la chaîne gar une seule fois :
MsgBox [CountIf(plage,"gar")]
Etc
Et pour compter le nombre de cellules contenant
la chaîne gar une seule fois :
MsgBox [CountIf(plage,"gar")]
Etc
Et pour compter le nombre de cellules contenant
la chaîne gar une seule fois :
MsgBox [CountIf(plage,"gar")]
Etc