Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Décalage valeur "vide"

Décalage valeur "vide"

2 réponses
Avatar
Britannicus
Bonsoir,

Suite au dernier message, je me suis un peu creusé les méninges et j'y suis
presque : je pense que ceci :
End(xlUp).Offset(1, 0)
décale toutes les écritures suivantes de la colonne "prix unitaire" si cette
cellule est vide ou nulle.Comment éviter ça ?
Voici un extrait de ma boucle :
i = 18
Range("A" & i).Select
While Range("A" & i) > " "
Sheets("RécapRéf").Range("C6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H4") 'N° facture
Sheets("RécapRéf").Range("A6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H6") 'Date
Sheets("RécapRéf").Range("B6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("B11") 'N° client
Sheets("RécapRéf").Range("D6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("A" & i) 'Référence
Sheets("RécapRéf").Range("E6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("B" & i) 'Désignation
Sheets("RécapRéf").Range("F6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("F" & i) 'Quantité
Sheets("RécapRéf").Range("G6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("G" & i) 'Prix unitaire

i = i + 1
Wend


Britannicus
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
FxM
Bonsoir,

Il faudrait que tu détermines la ligne la plus basse de toutes avant de
l'appliquer à tous les transferts.

(sur une seule ligne)
derlig = Sheets("RécapRéf").Cells.Find("*", [A1], , , xlByRows,
xlPrevious).Row + 1

i = 18
Range("A" & i).Select
While Range("A" & i) > " "

'N° facture
Sheets("RécapRéf").cells(derlig, "C")= Sheets(Onglet).Range("H4")

'Date
Sheets("RécapRéf").cells(derlig, "A")= Sheets(Onglet).Range("H6")

'etc, etc
i = i + 1
Wend


@+
FxM








Bonsoir,

Suite au dernier message, je me suis un peu creusé les méninges et j'y suis
presque : je pense que ceci :
End(xlUp).Offset(1, 0)
décale toutes les écritures suivantes de la colonne "prix unitaire" si cette
cellule est vide ou nulle.Comment éviter ça ?
Voici un extrait de ma boucle :
i = 18
Range("A" & i).Select
While Range("A" & i) > " "
Sheets("RécapRéf").Range("C6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H4") 'N° facture
Sheets("RécapRéf").Range("A6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H6") 'Date
Sheets("RécapRéf").Range("B6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("B11") 'N° client
Sheets("RécapRéf").Range("D6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("A" & i) 'Référence
Sheets("RécapRéf").Range("E6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("B" & i) 'Désignation
Sheets("RécapRéf").Range("F6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("F" & i) 'Quantité
Sheets("RécapRéf").Range("G6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("G" & i) 'Prix unitaire

i = i + 1
Wend


Britannicus





Avatar
Britannicus
Merci, c'est tout bon, il faut juste recopier la ligne derlig=...etc juste
avant le Wend pour recalculer cette dernière ligne.

Britannicus

"FxM" a écrit dans le message de news:
uXZ3%
Bonsoir,

Il faudrait que tu détermines la ligne la plus basse de toutes avant de
l'appliquer à tous les transferts.

(sur une seule ligne)
derlig = Sheets("RécapRéf").Cells.Find("*", [A1], , , xlByRows,
xlPrevious).Row + 1

i = 18
Range("A" & i).Select
While Range("A" & i) > " "

'N° facture
Sheets("RécapRéf").cells(derlig, "C")= Sheets(Onglet).Range("H4")

'Date
Sheets("RécapRéf").cells(derlig, "A")= Sheets(Onglet).Range("H6")

'etc, etc
i = i + 1
Wend


@+
FxM








Bonsoir,

Suite au dernier message, je me suis un peu creusé les méninges et j'y
suis presque : je pense que ceci :
End(xlUp).Offset(1, 0)
décale toutes les écritures suivantes de la colonne "prix unitaire" si
cette cellule est vide ou nulle.Comment éviter ça ?
Voici un extrait de ma boucle :
i = 18
Range("A" & i).Select
While Range("A" & i) > " "
Sheets("RécapRéf").Range("C6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H4") 'N° facture
Sheets("RécapRéf").Range("A6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("H6") 'Date
Sheets("RécapRéf").Range("B6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("B11") 'N° client
Sheets("RécapRéf").Range("D6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("A" & i) 'Référence
Sheets("RécapRéf").Range("E6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("B" & i) 'Désignation
Sheets("RécapRéf").Range("F6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("F" & i) 'Quantité
Sheets("RécapRéf").Range("G6553").End(xlUp).Offset(1, 0) =
Sheets(Onglet).Range("G" & i) 'Prix unitaire

i = i + 1
Wend


Britannicus