Macro qui coince dans un tableau

Bonsoir,

si qqn a une bonne lanterne pour m'éclairer, ce n'est pas de refus !! Dans un tableau excel j'ai enregistré une macro pour me faciliter la vie. Mais elle coince. Pourquoi ? Voici le tableau type :

notes col2 col3

08\25 08 8

18\25 18 18

26\25 26 26

18\25 18 18

28\25 28 28

09\25 09 9

moyenne,,,\25

mon but est d'obtenir la moyenne écrite ...\25 de la colonne 1. donc, j'extrais d'abord la note (=gauche...) j'obtiens la col 2, dont je copie la "valeur" seule en col3 puis j'efface les deux premières colonnes. J'ai enregistré ces étapes dans une macro enregistrée en automatique. Mais quand je veux l'appliquer ailleurs dans le tableau à une autre colonne de valeurs, elle "revient" toujours s'effectuer là ou je l'ai enregistrée !! et elle ne me sert donc à rien !

Comment faire pour l'utiliser partout dans le tableau (j'ai 45 colonnes de 20lignes à transformer de la même manière ! ! )

Merci pour votre aide. René

Bonsoir,

tu as un pb...........

tu as une macro (ah bon?)

et tu as des données......

tu ne nous donnes que les données......

Il faudrait peut-être une fonction personnalisée (via Formule ou VBA)

Mais sans plus, difficile de t'aider....

Bon Courage

salut Felix,

voici quelques explications. Ce fichier et un .txt à l'origine converti en excel. J'ai besoin de faire la moyenne de chaque colonne. J'ai donc fait une macro qui dans une première colonne adjacente extraie le chiffre utile(px "4") de la fraction. Puis dans une seconde colonne par "copier valeur" je pouvais calculer cette moyenne. Mais cette macro telle que je l'ai faite ne fonctionne pas sur d'autres colonnes que celle où je l'ai crée. Pourquoi et comment faire pour l'appliquer partout dans ce fichier ?

Merci de m'éclairer A+ René

voici le fichier qui m'ennuie :

chttp://www.excel-pratique.com/~files/doc/ClasseurForum_excel.xls

Bonjour

attention, il y a un c devant qui n'a rien a y faire

https://www.excel-pratique.com/~files/doc/ClasseurForum_excel.xls

Cordialement

Bonsoir,

si j'ai bien compris, essaie ainsi :

Sub Macro1()
For i = [IV2].End(xlToLeft).Column + 1 To 3 Step -1
    Columns(i).Insert Shift:=xlToRight
    Cells(3, i).FormulaR1C1 = "=LEFT(RC[-1],1)"
    Cells(3, i).AutoFill Destination:=Range(Cells(3, i), Cells(21, i))
    With Range(Cells(3, i), Cells(21, i))
        .Value = .Value
        .NumberFormat = 0
    End With
    Cells(23, i).FormulaR1C1 = "=AVERAGE(R[-20]C:R[-2]C)"
Next i
End Sub

Ton fichier modifié :

https://www.excel-pratique.com/~files/doc/Copie_de_ClasseurForum_excel.xls

PS, pour info, tu as mal copié ton lien, il y a un "c" de trop, en début d'adresse

Bon w-e

Impeccable !!

tous mes remerciements à Felix et Maguetolo pour leur réponse rapide et efficace.

Cordialement René