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
patrick
Bonjour, il faudrait faire une boucle pour tester chaque cellule si ta plage est selectionnée tu peux faire for each cellule in selection if cellule.value then ton code endif next cellule
@+ patrick
"JEAN" a écrit dans le message news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
Bonjour,
il faudrait faire une boucle pour tester
chaque cellule
si ta plage est selectionnée
tu peux faire
for each cellule in selection
if cellule.value then
ton code
endif
next cellule
@+
patrick
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message news:
6E523709-30DA-44F2-B56F-EC0BE661B21C@microsoft.com...
ce code:
If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
Bonjour, il faudrait faire une boucle pour tester chaque cellule si ta plage est selectionnée tu peux faire for each cellule in selection if cellule.value then ton code endif next cellule
@+ patrick
"JEAN" a écrit dans le message news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
michdenis
Bonjour Jean,
Tu dois faire une boucle sur chacune des cellules de la plage de cellules
Range("Bh15") = 60 ième colonne d'une feuille de calcul dans la procédure , le chiffre 59 permet de reporter le résultat de la colonne Bh en Colonne A
'------------------ For each C in Range("BH15:BH25") if C.value <> 0 then 'Copie en colonne A les valeur contenu dans BH15:Bh25 C.offset(,-59)= c.value 'mettre Bh = à 0 C.value = 0 end if next '------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles que je te suggère ! Et, je ne suis pas toujours disponible !
Salutations!
"JEAN" a écrit dans le message de news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
Bonjour Jean,
Tu dois faire une boucle sur chacune des cellules de la plage de cellules
Range("Bh15") = 60 ième colonne d'une feuille de calcul
dans la procédure , le chiffre 59 permet de reporter le résultat de la colonne Bh en Colonne A
'------------------
For each C in Range("BH15:BH25")
if C.value <> 0 then
'Copie en colonne A les valeur contenu dans BH15:Bh25
C.offset(,-59)= c.value
'mettre Bh = à 0
C.value = 0
end if
next
'------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles
que je te suggère ! Et, je ne suis pas toujours disponible !
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
6E523709-30DA-44F2-B56F-EC0BE661B21C@microsoft.com...
ce code:
If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
Tu dois faire une boucle sur chacune des cellules de la plage de cellules
Range("Bh15") = 60 ième colonne d'une feuille de calcul dans la procédure , le chiffre 59 permet de reporter le résultat de la colonne Bh en Colonne A
'------------------ For each C in Range("BH15:BH25") if C.value <> 0 then 'Copie en colonne A les valeur contenu dans BH15:Bh25 C.offset(,-59)= c.value 'mettre Bh = à 0 C.value = 0 end if next '------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles que je te suggère ! Et, je ne suis pas toujours disponible !
Salutations!
"JEAN" a écrit dans le message de news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
Pierre CFI [mvp]
bonjour tu sais Patrick, si Jean (dis testou ou urgent) écris à michdenis, c'est qu'il a ses raisons :o))))
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "patrick" a écrit dans le message de news:41ac9642$
Bonjour, il faudrait faire une boucle pour tester chaque cellule si ta plage est selectionnée tu peux faire for each cellule in selection if cellule.value then ton code endif next cellule
@+ patrick
"JEAN" a écrit dans le message news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
bonjour
tu sais Patrick, si Jean (dis testou ou urgent) écris à michdenis, c'est qu'il a ses raisons :o))))
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"patrick" <stop_patrick.mathe@libertysurf.fr> a écrit dans le message de news:41ac9642$1@news.sncf.fr...
Bonjour,
il faudrait faire une boucle pour tester
chaque cellule
si ta plage est selectionnée
tu peux faire
for each cellule in selection
if cellule.value then
ton code
endif
next cellule
@+
patrick
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message news:
6E523709-30DA-44F2-B56F-EC0BE661B21C@microsoft.com...
ce code:
If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
bonjour tu sais Patrick, si Jean (dis testou ou urgent) écris à michdenis, c'est qu'il a ses raisons :o))))
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "patrick" a écrit dans le message de news:41ac9642$
Bonjour, il faudrait faire une boucle pour tester chaque cellule si ta plage est selectionnée tu peux faire for each cellule in selection if cellule.value then ton code endif next cellule
@+ patrick
"JEAN" a écrit dans le message news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
JEAN
ok pour la boucle For i to 256 If Range("BH" & i) <> 0 Then
j'ai essayé cela mais ca focntionne pass
Bonjour, il faudrait faire une boucle pour tester chaque cellule si ta plage est selectionnée tu peux faire for each cellule in selection if cellule.value then ton code endif next cellule
@+ patrick
"JEAN" a écrit dans le message news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
ok pour la boucle
For i to 256
If Range("BH" & i) <> 0 Then
j'ai essayé cela mais ca focntionne pass
Bonjour,
il faudrait faire une boucle pour tester
chaque cellule
si ta plage est selectionnée
tu peux faire
for each cellule in selection
if cellule.value then
ton code
endif
next cellule
@+
patrick
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message news:
6E523709-30DA-44F2-B56F-EC0BE661B21C@microsoft.com...
ce code:
If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
ok pour la boucle For i to 256 If Range("BH" & i) <> 0 Then
j'ai essayé cela mais ca focntionne pass
Bonjour, il faudrait faire une boucle pour tester chaque cellule si ta plage est selectionnée tu peux faire for each cellule in selection if cellule.value then ton code endif next cellule
@+ patrick
"JEAN" a écrit dans le message news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
JEAN
If Range("BH15") <> 0 Then
l'audre code marchai tres bien j'ai besoin d'ecrire If Range("BH"&i)<>0 then et je voudrai faire varier la variable i de 15 à 25
comment faire merci
Bonjour Jean,
Tu dois faire une boucle sur chacune des cellules de la plage de cellules
Range("Bh15") = 60 ième colonne d'une feuille de calcul dans la procédure , le chiffre 59 permet de reporter le résultat de la colonne Bh en Colonne A
'------------------ For each C in Range("BH15:BH25") if C.value <> 0 then 'Copie en colonne A les valeur contenu dans BH15:Bh25 C.offset(,-59)= c.value 'mettre Bh = à 0 C.value = 0 end if next '------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles que je te suggère ! Et, je ne suis pas toujours disponible !
Salutations!
"JEAN" a écrit dans le message de news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
If Range("BH15") <> 0 Then
l'audre code marchai tres bien
j'ai besoin
d'ecrire
If Range("BH"&i)<>0 then
et je voudrai faire varier la variable i de 15 à 25
comment faire merci
Bonjour Jean,
Tu dois faire une boucle sur chacune des cellules de la plage de cellules
Range("Bh15") = 60 ième colonne d'une feuille de calcul
dans la procédure , le chiffre 59 permet de reporter le résultat de la colonne Bh en Colonne A
'------------------
For each C in Range("BH15:BH25")
if C.value <> 0 then
'Copie en colonne A les valeur contenu dans BH15:Bh25
C.offset(,-59)= c.value
'mettre Bh = à 0
C.value = 0
end if
next
'------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles
que je te suggère ! Et, je ne suis pas toujours disponible !
Salutations!
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de news:
6E523709-30DA-44F2-B56F-EC0BE661B21C@microsoft.com...
ce code:
If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
l'audre code marchai tres bien j'ai besoin d'ecrire If Range("BH"&i)<>0 then et je voudrai faire varier la variable i de 15 à 25
comment faire merci
Bonjour Jean,
Tu dois faire une boucle sur chacune des cellules de la plage de cellules
Range("Bh15") = 60 ième colonne d'une feuille de calcul dans la procédure , le chiffre 59 permet de reporter le résultat de la colonne Bh en Colonne A
'------------------ For each C in Range("BH15:BH25") if C.value <> 0 then 'Copie en colonne A les valeur contenu dans BH15:Bh25 C.offset(,-59)= c.value 'mettre Bh = à 0 C.value = 0 end if next '------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles que je te suggère ! Et, je ne suis pas toujours disponible !
Salutations!
"JEAN" a écrit dans le message de news:
ce code: If Range("BH15") <> 0 Then
comment le transformer
si je veux mettre une plage
If Range("BH15:BH25") <> 0 Then---->ca genere une erreur
comment l'ecrire merci
isabelle
bonjour Jean,
For i = 15 to 25 If Range("BH" & i) <> 0 Then Range("AZ" & i).Value = Range("BH" & i).Value end if next
isabelle
If Range("BH15") <> 0 Then
l'audre code marchai tres bien j'ai besoin d'ecrire If Range("BH"&i)<>0 then et je voudrai faire varier la variable i de 15 Ã 25
comment faire merci
Bonjour Jean,
Tu dois faire une boucle sur chacune des cellules de la plage de cellules
'------------------ For each C in Range("BH15:BH25") if C.value <> 0 then 'Copie en colonne A les valeur contenu dans BH15:Bh25 C.offset(,-59)= c.value 'mettre Bh = Ã 0 C.value = 0 end if next '------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles que je te suggère ! Et, je ne suis pas toujours disponible !
'------------------
For each C in Range("BH15:BH25")
if C.value <> 0 then
'Copie en colonne A les valeur contenu dans BH15:Bh25
C.offset(,-59)= c.value
'mettre Bh = Ã 0
C.value = 0
end if
next
'------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles
que je te suggère ! Et, je ne suis pas toujours disponible !
'------------------ For each C in Range("BH15:BH25") if C.value <> 0 then 'Copie en colonne A les valeur contenu dans BH15:Bh25 C.offset(,-59)= c.value 'mettre Bh = Ã 0 C.value = 0 end if next '------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles que je te suggère ! Et, je ne suis pas toujours disponible !
'------------------ For each C in Range("BH15:BH25") if C.value <> 0 then 'Copie en colonne A les valeur contenu dans BH15:Bh25 C.offset(,-59)= c.value 'mettre Bh = Ã 0 C.value = 0 end if next '------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles que je te suggère ! Et, je ne suis pas toujours disponible !
'------------------
For each C in Range("BH15:BH25")
if C.value <> 0 then
'Copie en colonne A les valeur contenu dans BH15:Bh25
C.offset(,-59)= c.value
'mettre Bh = Ã 0
C.value = 0
end if
next
'------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles
que je te suggère ! Et, je ne suis pas toujours disponible !
'------------------ For each C in Range("BH15:BH25") if C.value <> 0 then 'Copie en colonne A les valeur contenu dans BH15:Bh25 C.offset(,-59)= c.value 'mettre Bh = Ã 0 C.value = 0 end if next '------------------
P.S. Les questions sont ouvertes à tous... certains ou certaines peuvent avoir des alternatives meilleures que celles que je te suggère ! Et, je ne suis pas toujours disponible !
