Petite modif VBA
Résolu
JANGO5
Messages postés
92
Date d'inscription
Statut
Membre
Dernière intervention
-
JANGO5 Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
JANGO5 Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerais modifier une Macro VBA , Celle-ci à partir de 8 colonne me prend le premier numéro trouvé dans ces 8 colonne et me l'affiche dans la 9ème.
Aujourd'hui j'ai besoin que la macro me prennent le numéro le plus présent dans les 8 colonne plutôt que le premier trouvé (on parle d'une ligne des 8 colonnes) .
Merci.
"
Public Function ChoixNumero(Liste As Range) As String
Dim cellule As Range
Dim numero As String
numero = ""
For Each cellule In Liste
If Not Application.IsNA(cellule.Value) Then
If Len(numero) = 0 Then
numero = cellule.Value
ElseIf numero <> cellule.Value Then
numero = "ERREUR:" & numero
Exit For
End If
End If
Next cellule
ChoixNumero = numero
End Function
"
J'aimerais modifier une Macro VBA , Celle-ci à partir de 8 colonne me prend le premier numéro trouvé dans ces 8 colonne et me l'affiche dans la 9ème.
Aujourd'hui j'ai besoin que la macro me prennent le numéro le plus présent dans les 8 colonne plutôt que le premier trouvé (on parle d'une ligne des 8 colonnes) .
Merci.
"
Public Function ChoixNumero(Liste As Range) As String
Dim cellule As Range
Dim numero As String
numero = ""
For Each cellule In Liste
If Not Application.IsNA(cellule.Value) Then
If Len(numero) = 0 Then
numero = cellule.Value
ElseIf numero <> cellule.Value Then
numero = "ERREUR:" & numero
Exit For
End If
End If
Next cellule
ChoixNumero = numero
End Function
"
A voir également:
- Petite modif VBA
- Petite amie virtuelle en français gratuit - Accueil - Intelligence artificielle
- Petite croix snap - Forum Snapchat
- Savoir si je suis bloqué par une personne sur snap chat ✓ - Forum Snapchat
- Excel compter cellule couleur sans vba - Guide
- Petite majuscule word ✓ - Forum Word
1 réponse
Bonjour,
"Petite" modif... C'est l'essence de la macro qui est à changer.
Essaie ça :
A+
"Petite" modif... C'est l'essence de la macro qui est à changer.
Essaie ça :
Public Function ChoixNumero(Liste As Range) As String
Dim cellule As Range
Dim numero As String
Dim a As Integer, a_max As Integer, val_max As String
a = 0
a_max = 0
numero = ""
For Each cellule In Liste
a = Application.WorksheetFunction.CountIf(Liste, cellule)
If a > a_max Then
a_max = a
val_max = cellule.Value
End If
Next cellule
ChoixNumero = val_max
End Function
A+
Merci ça marche bien , il y a juste un petit détail que je n'arrive pas à intégrer : le message d'erreur dans la macro précédente :
If Len(numero) = 0 Then
numero = cellule.Value
ElseIf numero <> cellule.Value Then
numero = "ERREUR:" & numero
Exit For
Merci encore
je galère !!
Merci bcp !!
Tu peux le placer sur https://www.cjoint.com/ si tu veux.