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)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
Bonsoir.
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"pauline" <pauline@free.fr> a écrit dans le message de news:
OOgnfbIzHHA.3940@TK2MSFTNGP05.phx.gbl...
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)
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
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
Bonsoir,
Oui effectivement, j'ai fusionné 4 cellules sur chaque ligne.
Pauline
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OIIrg4IzHHA.4800@TK2MSFTNGP05.phx.gbl...
Bonsoir.
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"pauline" <pauline@free.fr> a écrit dans le message de news:
OOgnfbIzHHA.3940@TK2MSFTNGP05.phx.gbl...
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)
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
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
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" <pauline@free.fr> a écrit dans le message de news:
Olu20AJzHHA.3908@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Oui effectivement, j'ai fusionné 4 cellules sur chaque ligne.
Pauline
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OIIrg4IzHHA.4800@TK2MSFTNGP05.phx.gbl...
Bonsoir.
Y a-t-il des cellules fusionnées ?
Cordialement.
Daniel
"pauline" <pauline@free.fr> a écrit dans le message de news:
OOgnfbIzHHA.3940@TK2MSFTNGP05.phx.gbl...
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)
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)