OVH Cloud OVH Cloud

Openoffice et VBA d'excel !

2 réponses
Avatar
famjb2005
Je sais !!

là, j'abuse vraiment !!

Comment oser prononcer ce mot "opensource" parmi vous, fidèles adeptes du
travail de "Bill"

et pourtant, je craque, il est tard et je veux en finir, alors voilà :

Si l'un d'entre vous maîtrise aussi bien Openoffice Calc que Excel et qu'il
jongle avec les macros comme jonglerai un pro du cirque ( désolé la
comparaison est nulle ), voici une macro VBA qui fonctionne nickel !! (Merci
Anonymous !) :

Private Sub Worksheet_Change(ByVal Target As Range)

Set rngA = Sheets("Feuil2").Range("B2:B5")

On Error Resume Next
tampon = Application.WorksheetFunction.Match(Target.Value, rngA, 0)
If Err.Number <> 0 Then
Err.Clear
Else
Sheets("Feuil2").Cells(1 + tampon, 3).Value = Sheets("Feuil2").Cells(1 +
tampon, 3).Value + 1
End If

End Sub


Est-il possible ou non de la transformer pour qu'elle fonctionne sous le
Calc d'Openoffice

Je vous remercie d'avance de ne pas frapper trop fort sur ma tête
et je bénis le ciel d'avance pour celui qui bravera l'autorité de "Bill" et
qui osera me répondre

Enfin celui qui me donnera la solution, je serai son esclave à tout jamais
!!!

merci les gars et désolé...et bonne chance (et encore désolé )

2 réponses

Avatar
Pierre CFI [mvp]
bonjour
je crois pas qu'ignorer la concurrence soit un signe d'intelligence. Je ma suis d'ailleurs formé à openoffice car il y a de la
demande en formation. Là j'ai pu faire un peu de fric avant de partir en retraite, car des formateurs openoffice il y en a peu, donc
les prix montent.
Pour en revenir à calc, laisse tomber les macros en vba, on peut bricoler mais c'est galére.
pour infos et sans chauvinisme, si les gestionnaires des entreprises ou ministéres trouvent çà trés bien (car gratos), les
utilisateurs, eux, sont d'un avis inverse au bout de quelques temps. Sauf pour ceux qui utilisent le traitement de texte comme une
machine à écrire ou le tableur comme une calculette offerte en fin d'année :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
"famjb2005" a écrit dans le message de news:%
Je sais !!

là, j'abuse vraiment !!

Comment oser prononcer ce mot "opensource" parmi vous, fidèles adeptes du
travail de "Bill"

et pourtant, je craque, il est tard et je veux en finir, alors voilà :

Si l'un d'entre vous maîtrise aussi bien Openoffice Calc que Excel et qu'il
jongle avec les macros comme jonglerai un pro du cirque ( désolé la
comparaison est nulle ), voici une macro VBA qui fonctionne nickel !! (Merci
Anonymous !) :

Private Sub Worksheet_Change(ByVal Target As Range)

Set rngA = Sheets("Feuil2").Range("B2:B5")

On Error Resume Next
tampon = Application.WorksheetFunction.Match(Target.Value, rngA, 0)
If Err.Number <> 0 Then
Err.Clear
Else
Sheets("Feuil2").Cells(1 + tampon, 3).Value = Sheets("Feuil2").Cells(1 +
tampon, 3).Value + 1
End If

End Sub


Est-il possible ou non de la transformer pour qu'elle fonctionne sous le
Calc d'Openoffice

Je vous remercie d'avance de ne pas frapper trop fort sur ma tête
et je bénis le ciel d'avance pour celui qui bravera l'autorité de "Bill" et
qui osera me répondre

Enfin celui qui me donnera la solution, je serai son esclave à tout jamais
!!!

merci les gars et désolé...et bonne chance (et encore désolé )




Avatar
famjb2005
Je craignais d'entendre cette réponse !!!

Tant pis

En tout cas merci à vous tous (particulièrement à Anonymous) pour l'aide que
vous m'avez apportée sur Excel

Grâce à vous tous et à votre bénévolat, mon fichier est bouclé et fonctionne
à merveille !

à bientôt

famjb


Pierre CFI [mvp] a écrit dans le message :

bonjour
je crois pas qu'ignorer la concurrence soit un signe d'intelligence. Je ma
suis d'ailleurs formé à openoffice car il y a de la

demande en formation. Là j'ai pu faire un peu de fric avant de partir en
retraite, car des formateurs openoffice il y en a peu, donc

les prix montent.
Pour en revenir à calc, laisse tomber les macros en vba, on peut bricoler
mais c'est galére.

pour infos et sans chauvinisme, si les gestionnaires des entreprises ou
ministéres trouvent çà trés bien (car gratos), les

utilisateurs, eux, sont d'un avis inverse au bout de quelques temps. Sauf
pour ceux qui utilisent le traitement de texte comme une

machine à écrire ou le tableur comme une calculette offerte en fin d'année
: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
"famjb2005" a écrit dans le message de
news:%

Je sais !!

là, j'abuse vraiment !!

Comment oser prononcer ce mot "opensource" parmi vous, fidèles adeptes
du


travail de "Bill"

et pourtant, je craque, il est tard et je veux en finir, alors voilà :

Si l'un d'entre vous maîtrise aussi bien Openoffice Calc que Excel et
qu'il


jongle avec les macros comme jonglerai un pro du cirque ( désolé la
comparaison est nulle ), voici une macro VBA qui fonctionne nickel !!
(Merci


Anonymous !) :

Private Sub Worksheet_Change(ByVal Target As Range)

Set rngA = Sheets("Feuil2").Range("B2:B5")

On Error Resume Next
tampon = Application.WorksheetFunction.Match(Target.Value, rngA, 0)
If Err.Number <> 0 Then
Err.Clear
Else
Sheets("Feuil2").Cells(1 + tampon, 3).Value Sheets("Feuil2").Cells(1 +
tampon, 3).Value + 1
End If

End Sub


Est-il possible ou non de la transformer pour qu'elle fonctionne sous le
Calc d'Openoffice

Je vous remercie d'avance de ne pas frapper trop fort sur ma tête
et je bénis le ciel d'avance pour celui qui bravera l'autorité de "Bill"
et


qui osera me répondre

Enfin celui qui me donnera la solution, je serai son esclave à tout
jamais


!!!

merci les gars et désolé...et bonne chance (et encore désolé )