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
LSteph
Bonjour, Selon la fonctionalité de cette description (test sur A:A) et sous réserve qu'il reste assez de lignes entre données et totaux sinon cela ira in fine après: '.. Dim c as range Sheets("Tel").Activate for each c in range("a:a").cells if isempty(c) then c="remplirsinonprochaincouprestevideetcaplante" c.offset(0,17)= Val(TextBox64) c.offset(0,16)= Val(TextBox66) c.offset(0,18)= Val(TextBox74) exit for end if next '..........
'-- 'lsteph "Rémy" a écrit dans le message de news: 41e75b79$0$6407$
Comment copier d'un userform à une feuille excel à la ligne suivante vide (sachant qu'il y à une ligne avec les totaux) ?
' Active la feuille Tel Sheets("Tel").Activate ' Determine la prochaine cellule vide NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1 ' tranfere les informations Cells(NextRow, 17) = Val(TextBox64) Cells(NextRow, 16) = Val(TextBox66) Cells(NextRow, 18) = Val(TextBox74)
Ca me met les chiffres sous les totaux !!!
Merci de votre aide
Rémy
Bonjour,
Selon la fonctionalité de cette description (test sur A:A) et
sous réserve qu'il reste assez de lignes entre données et totaux
sinon cela ira in fine après:
'..
Dim c as range
Sheets("Tel").Activate
for each c in range("a:a").cells
if isempty(c) then
c="remplirsinonprochaincouprestevideetcaplante"
c.offset(0,17)= Val(TextBox64)
c.offset(0,16)= Val(TextBox66)
c.offset(0,18)= Val(TextBox74)
exit for
end if
next
'..........
'--
'lsteph
"Rémy" <remyalbi@yahoo.fr> a écrit dans le message de news:
41e75b79$0$6407$8fcfb975@news.wanadoo.fr...
Comment copier d'un userform à une feuille excel à la ligne suivante vide
(sachant qu'il y à une ligne avec les totaux) ?
' Active la feuille Tel
Sheets("Tel").Activate
' Determine la prochaine cellule vide
NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
' tranfere les informations
Cells(NextRow, 17) = Val(TextBox64)
Cells(NextRow, 16) = Val(TextBox66)
Cells(NextRow, 18) = Val(TextBox74)
Bonjour, Selon la fonctionalité de cette description (test sur A:A) et sous réserve qu'il reste assez de lignes entre données et totaux sinon cela ira in fine après: '.. Dim c as range Sheets("Tel").Activate for each c in range("a:a").cells if isempty(c) then c="remplirsinonprochaincouprestevideetcaplante" c.offset(0,17)= Val(TextBox64) c.offset(0,16)= Val(TextBox66) c.offset(0,18)= Val(TextBox74) exit for end if next '..........
'-- 'lsteph "Rémy" a écrit dans le message de news: 41e75b79$0$6407$
Comment copier d'un userform à une feuille excel à la ligne suivante vide (sachant qu'il y à une ligne avec les totaux) ?
' Active la feuille Tel Sheets("Tel").Activate ' Determine la prochaine cellule vide NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1 ' tranfere les informations Cells(NextRow, 17) = Val(TextBox64) Cells(NextRow, 16) = Val(TextBox66) Cells(NextRow, 18) = Val(TextBox74)
