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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4864371
Bonsoir.
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"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



pauline
Le #4864351
Bonsoir,

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

Pauline

"Daniel"
Bonsoir.
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"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







pauline
Le #4864341
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"
Bonsoir,

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

Pauline

"Daniel"
Bonsoir.
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"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











Publicité
Poster une réponse
Anonyme