Discussion :

[jeanpierre78]

Bonjour,

Débutant en VBA, j'ai bien du mal avec les codes récupérés sur le forum.

J'ai exporté une feuille d'un classeur en créant un nouveau classeur mais dans le nouveau classeur les valeurs de certaines cellules sont du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=[Compta_section.xls]Recap!I11

Pour exporter le nouveau calsseur vers un autre ordinateur, j'ai besoin de transformer ces formules en valeur.

J'ai utilisé un code trouvé sur le site :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    Dim MaVar As Variant 'pas forcément numérique
    ' on prend l'hypothèse que le contenu de A2 est une formule
    Dim Lig, Col As Integer
    Dim CnCel As String
 
    For Lig = 1 To 46              ' On balaye les lignes
        For Col = 65 To 75           ' On balaye les colonnes
            nCel = Chr(Col) & Lig
            MaVar = Range(nCel).Value
            Range(nCel).Value = MaVar
        Next
    Next

pour convertir les formules en valeur. Mais après exécution, le formules sont toujours présentes!!

Où est mon erreur?

Jean-Pierre

[Marc-L]

Bonjour,

le code travaille sur la feuille active …

Inutile de convertir un numéro de colonne en lettre avec la propriété Cells …

Sinon pas besoin de boucle pour modifier la plage de cellules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    With [A1:K46]
        .Value = .Value
    End With

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[nibledispo]

Bonjour,

Personnellement je ne comprends pas ce que fait l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ncel = chr(col) & lig

Si quelqu'un peut expliquer, je suis preneur.

En attendant, essai ceci en mettant les lignes et les colonnes qui te concernent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub valeur()
 
Dim MaVar As Variant 'pas forcément numérique
    ' on prend l'hypothèse que le contenu de A2 est une formule
    Dim Lig, Col As Integer
    Dim CnCel As String
    For Lig = 4 To 14              ' On balaye les lignes
        For Col = 1 To 3           ' On balaye les colonnes
            MaVar = Cells(Lig, Col).Value
            Cells(Lig, Col).Value = MaVar
        Next
    Next
End Sub

edit: pas vu la réponse de MARC avant expédition.

Cordialement,

[jeanpierre78]

Bonjour,

Merci pour la réponse.

J'ai contourné le problème en copiant les valeurs puis le format.

Jean-Pierre