bonjour =E0 vous, alors voila a la commande ci-joint=20
j'aimerais bien ajouter un compteur qui conte les cellules=20
pleine car cette commande permet de trouver une ligne vide.=20
Par la suite je voudrais qu avec le conteur je puisse faire=20
un RANGE(A1:cellule pleine a partir de A1 jusqu =E0 la=20
cellule vide). Merci bien ci vous comprenez pas ma demande=20
n =E9sit=E9 pas =E0 me demander merci.
Public Sub Histo()
Dim ligne As Long
Dim degage As Boolean
degage =3D False
ligne =3D 1 ' num=E9ro de la premi=E8re ligne de=20
l'historique
While Not Sheets("Historique facture").Cells(ligne, 1)=20
=3D "" ' teste si la cellule n'est pas vide
ligne =3D ligne + 1 'passe =E0 la ligne=20
suivante
Wend 'retourne au while tant que la condition du while=20
n'est pas remplie.
=20
Sheets("Historique facture").Cells(ligne, 1) =3D=20
Sheets("facture").Cells(1, 1) ' on =E9crit le num=E9ro de=20
facture
Sheets("Historique facture").Cells(ligne, 2) =3D=20
Sheets("facture").Cells(3, 3) ' on =E9crit la date
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
Joel
Bonjour,
Sub OuEcrire() Dim Ligne As Long If Sheets("Historique facture").Range("A1") = "" Then Ligne = 1 Else Ligne = Sheets("Historique facture").Range("A65536").End(xlUp).Row + 1 End If Sheets("Historique facture").Cells(Ligne, 1) = _ Sheets("facture").Cells(1, 1) ' on écrit le numéro de facture
Sheets("Historique facture").Cells(Ligne, 2) = _ Sheets("facture").Cells(3, 3) ' on écrit la date
Joël GARBE www.joelgarbe.fr "j0b" a écrit dans le message de news: 1d9c01c4a867$74425aa0$ bonjour à vous, alors voila a la commande ci-joint j'aimerais bien ajouter un compteur qui conte les cellules pleine car cette commande permet de trouver une ligne vide. Par la suite je voudrais qu avec le conteur je puisse faire un RANGE(A1:cellule pleine a partir de A1 jusqu à la cellule vide). Merci bien ci vous comprenez pas ma demande n ésité pas à me demander merci.
Public Sub Histo()
Dim ligne As Long
Dim degage As Boolean
degage = False
ligne = 1 ' numéro de la première ligne de l'historique
While Not Sheets("Historique facture").Cells(ligne, 1) = "" ' teste si la cellule n'est pas vide
ligne = ligne + 1 'passe à la ligne suivante
Wend 'retourne au while tant que la condition du while n'est pas remplie.
Sheets("Historique facture").Cells(ligne, 1) Sheets("facture").Cells(1, 1) ' on écrit le numéro de facture
Sheets("Historique facture").Cells(ligne, 2) Sheets("facture").Cells(3, 3) ' on écrit la date
End Sub
Bonjour,
Sub OuEcrire()
Dim Ligne As Long
If Sheets("Historique facture").Range("A1") = "" Then
Ligne = 1
Else
Ligne = Sheets("Historique facture").Range("A65536").End(xlUp).Row + 1
End If
Sheets("Historique facture").Cells(Ligne, 1) = _
Sheets("facture").Cells(1, 1) ' on écrit le numéro de facture
Sheets("Historique facture").Cells(Ligne, 2) = _
Sheets("facture").Cells(3, 3) ' on écrit la date
Joël GARBE
www.joelgarbe.fr
"j0b" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
1d9c01c4a867$74425aa0$a301280a@phx.gbl...
bonjour à vous, alors voila a la commande ci-joint
j'aimerais bien ajouter un compteur qui conte les cellules
pleine car cette commande permet de trouver une ligne vide.
Par la suite je voudrais qu avec le conteur je puisse faire
un RANGE(A1:cellule pleine a partir de A1 jusqu à la
cellule vide). Merci bien ci vous comprenez pas ma demande
n ésité pas à me demander merci.
Public Sub Histo()
Dim ligne As Long
Dim degage As Boolean
degage = False
ligne = 1 ' numéro de la première ligne de
l'historique
While Not Sheets("Historique facture").Cells(ligne, 1)
= "" ' teste si la cellule n'est pas vide
ligne = ligne + 1 'passe à la ligne
suivante
Wend 'retourne au while tant que la condition du while
n'est pas remplie.
Sheets("Historique facture").Cells(ligne, 1) Sheets("facture").Cells(1, 1) ' on écrit le numéro de
facture
Sheets("Historique facture").Cells(ligne, 2) Sheets("facture").Cells(3, 3) ' on écrit la date
Sub OuEcrire() Dim Ligne As Long If Sheets("Historique facture").Range("A1") = "" Then Ligne = 1 Else Ligne = Sheets("Historique facture").Range("A65536").End(xlUp).Row + 1 End If Sheets("Historique facture").Cells(Ligne, 1) = _ Sheets("facture").Cells(1, 1) ' on écrit le numéro de facture
Sheets("Historique facture").Cells(Ligne, 2) = _ Sheets("facture").Cells(3, 3) ' on écrit la date
Joël GARBE www.joelgarbe.fr "j0b" a écrit dans le message de news: 1d9c01c4a867$74425aa0$ bonjour à vous, alors voila a la commande ci-joint j'aimerais bien ajouter un compteur qui conte les cellules pleine car cette commande permet de trouver une ligne vide. Par la suite je voudrais qu avec le conteur je puisse faire un RANGE(A1:cellule pleine a partir de A1 jusqu à la cellule vide). Merci bien ci vous comprenez pas ma demande n ésité pas à me demander merci.
Public Sub Histo()
Dim ligne As Long
Dim degage As Boolean
degage = False
ligne = 1 ' numéro de la première ligne de l'historique
While Not Sheets("Historique facture").Cells(ligne, 1) = "" ' teste si la cellule n'est pas vide
ligne = ligne + 1 'passe à la ligne suivante
Wend 'retourne au while tant que la condition du while n'est pas remplie.
Sheets("Historique facture").Cells(ligne, 1) Sheets("facture").Cells(1, 1) ' on écrit le numéro de facture
Sheets("Historique facture").Cells(ligne, 2) Sheets("facture").Cells(3, 3) ' on écrit la date
End Sub
Merci bien pour le coup de pouce je vais tester tout ca
-----Message d'origine----- Bonjour,
Sub OuEcrire() Dim Ligne As Long If Sheets("Historique facture").Range("A1") = "" Then Ligne = 1 Else Ligne = Sheets("Historique facture").Range("A65536"). End(xlUp).Row + 1
End If Sheets("Historique facture").Cells(Ligne, 1) = _ Sheets("facture").Cells(1, 1) ' on écrit le numéro de facture
Sheets("Historique facture").Cells(Ligne, 2) = _ Sheets("facture").Cells(3, 3) ' on écrit la date
Joël GARBE www.joelgarbe.fr "j0b" a écrit dans le message de news:
1d9c01c4a867$74425aa0$ bonjour à vous, alors voila a la commande ci-joint j'aimerais bien ajouter un compteur qui conte les cellules pleine car cette commande permet de trouver une ligne vide.
Par la suite je voudrais qu avec le conteur je puisse faire
un RANGE(A1:cellule pleine a partir de A1 jusqu à la cellule vide). Merci bien ci vous comprenez pas ma demande n ésité pas à me demander merci.
Public Sub Histo()
Dim ligne As Long
Dim degage As Boolean
degage = False
ligne = 1 ' numéro de la première ligne de l'historique
While Not Sheets("Historique facture").Cells(ligne, 1) = "" ' teste si la cellule n'est pas vide
ligne = ligne + 1 'passe à la ligne suivante
Wend 'retourne au while tant que la condition du while n'est pas remplie.
Sheets("Historique facture").Cells(ligne, 1) = Sheets("facture").Cells(1, 1) ' on écrit le numéro de facture
Sheets("Historique facture").Cells(ligne, 2) = Sheets("facture").Cells(3, 3) ' on écrit la date
End Sub
.
Merci bien pour le coup de pouce je vais tester tout ca
-----Message d'origine-----
Bonjour,
Sub OuEcrire()
Dim Ligne As Long
If Sheets("Historique facture").Range("A1") = "" Then
Ligne = 1
Else
Ligne = Sheets("Historique facture").Range("A65536").
End(xlUp).Row + 1
End If
Sheets("Historique facture").Cells(Ligne, 1) = _
Sheets("facture").Cells(1, 1) ' on écrit le numéro de
facture
Sheets("Historique facture").Cells(Ligne, 2) = _
Sheets("facture").Cells(3, 3) ' on écrit la date
Joël GARBE
www.joelgarbe.fr
"j0b" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
1d9c01c4a867$74425aa0$a301280a@phx.gbl...
bonjour à vous, alors voila a la commande ci-joint
j'aimerais bien ajouter un compteur qui conte les cellules
pleine car cette commande permet de trouver une ligne
vide.
Par la suite je voudrais qu avec le conteur je puisse
faire
un RANGE(A1:cellule pleine a partir de A1 jusqu à la
cellule vide). Merci bien ci vous comprenez pas ma demande
n ésité pas à me demander merci.
Public Sub Histo()
Dim ligne As Long
Dim degage As Boolean
degage = False
ligne = 1 ' numéro de la première ligne de
l'historique
While Not Sheets("Historique facture").Cells(ligne, 1)
= "" ' teste si la cellule n'est pas vide
ligne = ligne + 1 'passe à la ligne
suivante
Wend 'retourne au while tant que la condition du while
n'est pas remplie.
Sheets("Historique facture").Cells(ligne, 1) =
Sheets("facture").Cells(1, 1) ' on écrit le numéro de
facture
Sheets("Historique facture").Cells(ligne, 2) =
Sheets("facture").Cells(3, 3) ' on écrit la date
Merci bien pour le coup de pouce je vais tester tout ca
-----Message d'origine----- Bonjour,
Sub OuEcrire() Dim Ligne As Long If Sheets("Historique facture").Range("A1") = "" Then Ligne = 1 Else Ligne = Sheets("Historique facture").Range("A65536"). End(xlUp).Row + 1
End If Sheets("Historique facture").Cells(Ligne, 1) = _ Sheets("facture").Cells(1, 1) ' on écrit le numéro de facture
Sheets("Historique facture").Cells(Ligne, 2) = _ Sheets("facture").Cells(3, 3) ' on écrit la date
Joël GARBE www.joelgarbe.fr "j0b" a écrit dans le message de news:
1d9c01c4a867$74425aa0$ bonjour à vous, alors voila a la commande ci-joint j'aimerais bien ajouter un compteur qui conte les cellules pleine car cette commande permet de trouver une ligne vide.
Par la suite je voudrais qu avec le conteur je puisse faire
un RANGE(A1:cellule pleine a partir de A1 jusqu à la cellule vide). Merci bien ci vous comprenez pas ma demande n ésité pas à me demander merci.
Public Sub Histo()
Dim ligne As Long
Dim degage As Boolean
degage = False
ligne = 1 ' numéro de la première ligne de l'historique
While Not Sheets("Historique facture").Cells(ligne, 1) = "" ' teste si la cellule n'est pas vide
ligne = ligne + 1 'passe à la ligne suivante
Wend 'retourne au while tant que la condition du while n'est pas remplie.
Sheets("Historique facture").Cells(ligne, 1) = Sheets("facture").Cells(1, 1) ' on écrit le numéro de facture
Sheets("Historique facture").Cells(ligne, 2) = Sheets("facture").Cells(3, 3) ' on écrit la date
