Bloquer la valeur d’une cellule

Chasse · 1 Mai 2011

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é

Code:

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 · 1 Mai 2011

Re : Bloquer la valeur d’une cellule

Bonjour,

sans trop chercher à comprendre, je te propose ceci :

VB:

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 · 1 Mai 2011

Re : Bloquer la valeur d’une cellule

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

Code:

[A2].Value = [A2].Value

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

Chasse · 1 Mai 2011

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

Bloquer la valeur d’une cellule

Chasse

XLDnaute Occasionnel

Pièces jointes

Softmama

XLDnaute Accro

david84

XLDnaute Barbatruc

Chasse

XLDnaute Occasionnel

Discussions similaires

Bloquer la valeur d’une cellule

Chasse

XLDnaute Occasionnel

Pièces jointes

Softmama

XLDnaute Accro

david84

XLDnaute Barbatruc

Chasse

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency