Bloquer la valeur d’une cellule

[Chasse]

Bonsoir à tous

J’aimerai que pendant le déroulement de la macro la valeur de la cellule (« A2 ») soit la même.
Et est-ce que la fonction transpose fonctionne après avoir coupé

Sub transposer()

    Range("C1" & ":C" & Range("A2")).Copy
    Range("IV1").End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True

  
    Range("B1" & ":D" & Range("A2")).Select
    Selection.Delete Shift:=xlUp
   
     End Sub

La 1er opération consiste à copier ou couper et transposer
La 2ième à supprimer les cellules

J'espère que vous pourrez m'aider
D'avance merci et bonne soirée.

 

[Softmama]

Re : Bloquer la valeur d’une cellule

Bonjour,

sans trop chercher à comprendre, je te propose ceci :

Sub transposer()
Dim A as string
  A= Range("A2").Value
    Range("C1" & ":C" & A).Copy
    Range("IV1").End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
 
    Range("B1" & ":D" & A).Select
    Selection.Delete Shift:=xlUp   
End Sub

 

[david84]

Re : Bloquer la valeur d’une cellule

Bonsoir,
pas sûr de t'avoir compris, mais rajoute cette ligne en début de macro :

[A2].Value = [A2].Value

Ceci-dit, ta cellule ne contient plus de formule...est-ce ce que tu veux
A+

 

[Chasse]

Re : Bloquer la valeur d’une cellule

Bonsoir Softmama et david84
Je suis un novice en VBA et c'est comme mes début en planche a voile, je plus souvent dans l'eau que sur la planche
Merci infiniment ça fonctionne à merveille!!!

Effectivement j'ai besoin que la formule reste

Encore Merci