J
japytou
Guest
Bonjour,
j'ai vu qu'il y avait une feuille de présentation, ça ne fait pas longtemps que je suis inscrit, mais quand même... j'habite près de Tours (37) et je suis un petit re...débutant car quand le VBA est apparu, je n'ai pas eu le courage de remettre mes idées à jour.... et avec cette nouvelle année, j'ai pris la bonne résolution de ne pas me reposer !
félicitation aux concepteurs du site, car il est présenté de façon claire et facile à comprendre, de plus, il m'a déjà sorti d'une partie de mon ignorance, je reste, cependant, un petit "bleu".
ma question est la suivante :
j'ai lu dans un mail de Temjeh (mail de 2004, je crois), le code suivant :
Sub Compter_une_valeur()
'' Compter_une_valeur Macro
' Macro enregistrée le 06/01/2003 par excel par l'exemple
'
nombre = InputBox("Inscrivez la valeur à compter", "nombre", 0)
nbre = WorksheetFunction.CountIf(Range("A:IV"), nombre)
MsgBox ("La valeur " & nombre & " est présente " & nbre & " fois dans cette feuille!!")
Range("A1").Activate
End Sub
c'est un code magique ! mais en fait, j'aurais voulu inventorier dans un tableau l'adresse des cellules dont le contenu est identique.
comment faire ?
je vous remercie beaucoup
JP
j'ai vu qu'il y avait une feuille de présentation, ça ne fait pas longtemps que je suis inscrit, mais quand même... j'habite près de Tours (37) et je suis un petit re...débutant car quand le VBA est apparu, je n'ai pas eu le courage de remettre mes idées à jour.... et avec cette nouvelle année, j'ai pris la bonne résolution de ne pas me reposer !
félicitation aux concepteurs du site, car il est présenté de façon claire et facile à comprendre, de plus, il m'a déjà sorti d'une partie de mon ignorance, je reste, cependant, un petit "bleu".
ma question est la suivante :
j'ai lu dans un mail de Temjeh (mail de 2004, je crois), le code suivant :
Sub Compter_une_valeur()
'' Compter_une_valeur Macro
' Macro enregistrée le 06/01/2003 par excel par l'exemple
'
nombre = InputBox("Inscrivez la valeur à compter", "nombre", 0)
nbre = WorksheetFunction.CountIf(Range("A:IV"), nombre)
MsgBox ("La valeur " & nombre & " est présente " & nbre & " fois dans cette feuille!!")
Range("A1").Activate
End Sub
c'est un code magique ! mais en fait, j'aurais voulu inventorier dans un tableau l'adresse des cellules dont le contenu est identique.
comment faire ?
je vous remercie beaucoup
JP
