format de cellule via code vba
Le
pauline

Bonjour,
J'ai un petit soucis avec le format d'une cellule qui ne s'applique pas
quand les infos sont envoyées par macro.
Je m'explique:
Dans ma feuille "devis" en cellule A je récupère des infos de ma feuille
"prepa devis gauche"envoyées par une macro ci-dessous.
Je rencontre le cas qu'une cellule doit contenir plusieurs phrases, donc
j'ai formaté ma cellule avec "renvoyer à la ligne automatiquement". Mais, la
cellule ne s'aggrandit pas manuellement.
Je pense qu'il faut intervenir sur le code?
Merci d'avance pour votre aide
Pauline
Sub calculerdevis()
With Sheets("devis")
For i = 10 To 500
num2 = Sheets("devis").Range("A65536").End(xlUp).Row + 1
If Sheets("prepa devis gauche").Range("b" & i) <> 0 Then
Sheets("devis").Range("a" & num2) = Sheets("prepa devis gauche").Range("c" &
i)
If Sheets("prepa devis gauche").Range("b" & i) <> 0 Then
Sheets("devis").Range("b" & num2) = Sheets("prepa devis gauche").Range("d" &
i)
Next i
End With
Sheets("devis").Select
End Sub
J'ai un petit soucis avec le format d'une cellule qui ne s'applique pas
quand les infos sont envoyées par macro.
Je m'explique:
Dans ma feuille "devis" en cellule A je récupère des infos de ma feuille
"prepa devis gauche"envoyées par une macro ci-dessous.
Je rencontre le cas qu'une cellule doit contenir plusieurs phrases, donc
j'ai formaté ma cellule avec "renvoyer à la ligne automatiquement". Mais, la
cellule ne s'aggrandit pas manuellement.
Je pense qu'il faut intervenir sur le code?
Merci d'avance pour votre aide
Pauline
Sub calculerdevis()
With Sheets("devis")
For i = 10 To 500
num2 = Sheets("devis").Range("A65536").End(xlUp).Row + 1
If Sheets("prepa devis gauche").Range("b" & i) <> 0 Then
Sheets("devis").Range("a" & num2) = Sheets("prepa devis gauche").Range("c" &
i)
If Sheets("prepa devis gauche").Range("b" & i) <> 0 Then
Sheets("devis").Range("b" & num2) = Sheets("prepa devis gauche").Range("d" &
i)
Next i
End With
Sheets("devis").Select
End Sub
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"pauline"
Oui effectivement, j'ai fusionné 4 cellules sur chaque ligne.
Pauline
"Daniel"
Tu m'a mis sur la piste. Effectivement, c'était les cellules fusionnées
imcompatibles avec le format de cellule souhaité.
Merci
Bonne soirée
"pauline"