Bonjour à tous,
 
j'aimerai avoir le code ci-dessous prévu pour une base access mais pour Excel.
 
 
Ce code permet de remplir un champ dans une table.
j'aimerai faire la meme chose avec les boites de dialogues et tout, mais que les résultats s'inscivent dans un fichier Excel.
 

 
je ne suis pas toujour perspicasse dans mes explications, donc si vous désiré plus d'information/préssision n'hésité pas.
 
Cordialement,
Zorh.

Impossible directement, vu que c'est justement prévu pour de l'access, ça ne se gère pas pareil sous Excel... Faut y faire quelques modifs pour inscrire les infos dans des cellules au lieu d'un recordset

euhh ... vi certainement :S :
 
je présise je suis le projet d'un collègue en congès maternité et je ne connai pas le VBA.
 
si tu pouvai me traduire sa pour Excel se serai super de ta part ^^
 
Cordialement,
Zorh.

up

Bonsoir,
En supposant le classeur ouvert:
 
 
Option Explicit
 
Function suivant(nb As Long) As Long
    Dim tempo As Long
    tempo = nb + 11
        If Right(tempo, 1) = "7" Then tempo = tempo - 7
    suivant = tempo
End Function
 
Sub calcul_LTA()
 
Dim nb_suite As Long
Dim Ref_CA As Long
Dim boucle As Long
 Dim debut As Long
Dim lignesuivante As Long
 
SAISIE:
debut = CLng(InputBox("début de la suite ??" ))
If Right(debut, 1) > 6 Then
MsgBox ("N° LTA érroné !" )
GoTo SAISIE:
End If
debut = debut - 11
nb_suite = CLng(InputBox("Nombre de LTA disponible ??" ))
Ref_CA = CLng(InputBox("Reférence Compagnie ( 3 chiffres )" ))
 
If Cells(1, 1) = "" Then
lignesuivante = 1
Else
lignesuivante = Cells(65536, 1).End(xlUp).Row + 1
End If
For boucle = 1 To nb_suite
debut = suivant(debut)
Cells(lignesuivante, 1) = debut
Cells(lignesuivante, 2) = Ref_CA
lignesuivante = lignesuivante + 1
 
Next boucle
 
End Sub
 
Cordialement
 
Félicitations au collègue (maternité ou paternité?)

sa marche nikel merci :