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
Frédo P.
un exemple à copier dans le code de feuille: clic droit sur l'onglet Feuil1:visualiser le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$B$2" Then While [B2] < 128 And [B2] <> 0 ' tant que B2<128 et <>0 MsgBox [B2] [B2] = [B2] + [B2] Wend End If End Sub
mets un chiffre inférieur à 128 dans B2
-- Fred
"Rita" a écrit dans le message de news: bp7udr$a46$
Bonjour,
Je cherche à faire une boucle pour trouver la valeur du cellule, du style "reperter (calcul) jusqu'à (condition)".
Je ne connais pas VBA, et ai assez peu de chance à réussir l'écriture d'une
macro.
Si vous avez un exemple assez simple, quelque chose que je puisse copier-coller et modifier pour l'adapter, je suis preneuse !!
Rita
un exemple à copier dans le code de feuille:
clic droit sur l'onglet Feuil1:visualiser le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$2" Then
While [B2] < 128 And [B2] <> 0 ' tant que B2<128 et <>0
MsgBox [B2]
[B2] = [B2] + [B2]
Wend
End If
End Sub
mets un chiffre inférieur à 128 dans B2
--
Fred
"Rita" <rita.chloe@laposte.net> a écrit dans le message de news:
bp7udr$a46$1@news-reader2.wanadoo.fr...
Bonjour,
Je cherche à faire une boucle pour trouver la valeur du cellule, du style
"reperter (calcul) jusqu'à (condition)".
Je ne connais pas VBA, et ai assez peu de chance à réussir l'écriture
d'une
macro.
Si vous avez un exemple assez simple, quelque chose que je puisse
copier-coller et modifier pour l'adapter, je suis preneuse !!
un exemple à copier dans le code de feuille: clic droit sur l'onglet Feuil1:visualiser le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$B$2" Then While [B2] < 128 And [B2] <> 0 ' tant que B2<128 et <>0 MsgBox [B2] [B2] = [B2] + [B2] Wend End If End Sub
mets un chiffre inférieur à 128 dans B2
-- Fred
"Rita" a écrit dans le message de news: bp7udr$a46$
Bonjour,
Je cherche à faire une boucle pour trouver la valeur du cellule, du style "reperter (calcul) jusqu'à (condition)".
Je ne connais pas VBA, et ai assez peu de chance à réussir l'écriture d'une
macro.
Si vous avez un exemple assez simple, quelque chose que je puisse copier-coller et modifier pour l'adapter, je suis preneuse !!
Rita
Rita
Mille mercis, ton exemple fonctionne parfaitement (c'est à dire que j'ai réussi à la faire fonctionner moi même !!!), je vais l'étudier, je suis sûr que c'est ce que je recherchais. J'espère pouvoir y mettre des tests sous forme de chaine de caractères
Rita
"Frédo P." a écrit dans le message de news:3fb79824$0$2808$
un exemple à copier dans le code de feuille: clic droit sur l'onglet Feuil1:visualiser le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$B$2" Then While [B2] < 128 And [B2] <> 0 ' tant que B2<128 et <>0 MsgBox [B2] [B2] = [B2] + [B2] Wend End If End Sub
mets un chiffre inférieur à 128 dans B2
-- Fred
"Rita" a écrit dans le message de news: bp7udr$a46$
Bonjour,
Je cherche à faire une boucle pour trouver la valeur du cellule, du style
"reperter (calcul) jusqu'à (condition)".
Je ne connais pas VBA, et ai assez peu de chance à réussir l'écriture d'une
macro.
Si vous avez un exemple assez simple, quelque chose que je puisse copier-coller et modifier pour l'adapter, je suis preneuse !!
Rita
Mille mercis, ton exemple fonctionne parfaitement (c'est à dire que j'ai
réussi à la faire fonctionner moi même !!!), je vais l'étudier, je suis sûr
que c'est ce que je recherchais. J'espère pouvoir y mettre des tests sous
forme de chaine de caractères
Rita
"Frédo P." <fredpost@free.fr> a écrit dans le message de
news:3fb79824$0$2808$626a54ce@news.free.fr...
un exemple à copier dans le code de feuille:
clic droit sur l'onglet Feuil1:visualiser le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$2" Then
While [B2] < 128 And [B2] <> 0 ' tant que B2<128 et <>0
MsgBox [B2]
[B2] = [B2] + [B2]
Wend
End If
End Sub
mets un chiffre inférieur à 128 dans B2
--
Fred
"Rita" <rita.chloe@laposte.net> a écrit dans le message de news:
bp7udr$a46$1@news-reader2.wanadoo.fr...
Bonjour,
Je cherche à faire une boucle pour trouver la valeur du cellule, du
style
"reperter (calcul) jusqu'à (condition)".
Je ne connais pas VBA, et ai assez peu de chance à réussir l'écriture
d'une
macro.
Si vous avez un exemple assez simple, quelque chose que je puisse
copier-coller et modifier pour l'adapter, je suis preneuse !!
Mille mercis, ton exemple fonctionne parfaitement (c'est à dire que j'ai réussi à la faire fonctionner moi même !!!), je vais l'étudier, je suis sûr que c'est ce que je recherchais. J'espère pouvoir y mettre des tests sous forme de chaine de caractères
Rita
"Frédo P." a écrit dans le message de news:3fb79824$0$2808$
un exemple à copier dans le code de feuille: clic droit sur l'onglet Feuil1:visualiser le code
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$B$2" Then While [B2] < 128 And [B2] <> 0 ' tant que B2<128 et <>0 MsgBox [B2] [B2] = [B2] + [B2] Wend End If End Sub
mets un chiffre inférieur à 128 dans B2
-- Fred
"Rita" a écrit dans le message de news: bp7udr$a46$
Bonjour,
Je cherche à faire une boucle pour trouver la valeur du cellule, du style
"reperter (calcul) jusqu'à (condition)".
Je ne connais pas VBA, et ai assez peu de chance à réussir l'écriture d'une
macro.
Si vous avez un exemple assez simple, quelque chose que je puisse copier-coller et modifier pour l'adapter, je suis preneuse !!
Rita
Frédo P.
"Rita" a écrit dans le message de news: bp8op5$ecn$
Mille mercis, ton exemple fonctionne parfaitement (c'est à dire que j'ai réussi à la faire fonctionner moi même !!!), je vais l'étudier, je suis sûr
que c'est ce que je recherchais. J'espère pouvoir y mettre des tests sous forme de chaine de caractères
Rita-- Mille, c'est trop
Fred
"Rita" <rita.chloe@laposte.net> a écrit dans le message de news:
bp8op5$ecn$1@news-reader5.wanadoo.fr...
Mille mercis, ton exemple fonctionne parfaitement (c'est à dire que j'ai
réussi à la faire fonctionner moi même !!!), je vais l'étudier, je suis
sûr
que c'est ce que je recherchais. J'espère pouvoir y mettre des tests sous
forme de chaine de caractères
