Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

format de cellule via code vba

3 réponses
Avatar
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

3 réponses

Avatar
Daniel
Bonsoir.
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"pauline" a écrit dans le message de news:

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



Avatar
pauline
Bonsoir,

Oui effectivement, j'ai fusionné 4 cellules sur chaque ligne.

Pauline

"Daniel" a écrit dans le message de news:

Bonsoir.
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"pauline" a écrit dans le message de news:

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







Avatar
pauline
Bonsoir,

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" a écrit dans le message de news:

Bonsoir,

Oui effectivement, j'ai fusionné 4 cellules sur chaque ligne.

Pauline

"Daniel" a écrit dans le message de news:

Bonsoir.
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"pauline" a écrit dans le message de news:

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