Pb decalage ligne
lindette
Messages postés
38
Statut
Membre
-
lindette Messages postés 38 Statut Membre -
lindette Messages postés 38 Statut Membre -
Bonjour à tous
voici j'ai un code
Sub remplirdevis()
Dim codeprod
codeprod = InputBox("Saisissez le code produit :", "SAISIE CODE PRODUIT")
Dim quantite
quantite = InputBox("Saisissez la quantité correspondante:", "SAISIR QUANTITE PRODUIT")
If Range("A2").Value = "" Then
decalage = 0
Range("A2").Select
Range("A2").Value = UCase(codeprod)
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.Value = quantite
Else
Position = Range("A1").End(xlDown).Address
Range(Position).Select
decalage = 1
ActiveCell.Offset(decalage, 0).Range("A1").Select
ActiveCell.Value = UCase(codeprod)
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.Value = quantite
End If
End Sub
ce code fonctionne bien si je pars de la cellule A2 mais moi je voudrais commencer à la cellule A23 ET LA CA COINCE....
merci de votre aide
linda
voici j'ai un code
Sub remplirdevis()
Dim codeprod
codeprod = InputBox("Saisissez le code produit :", "SAISIE CODE PRODUIT")
Dim quantite
quantite = InputBox("Saisissez la quantité correspondante:", "SAISIR QUANTITE PRODUIT")
If Range("A2").Value = "" Then
decalage = 0
Range("A2").Select
Range("A2").Value = UCase(codeprod)
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.Value = quantite
Else
Position = Range("A1").End(xlDown).Address
Range(Position).Select
decalage = 1
ActiveCell.Offset(decalage, 0).Range("A1").Select
ActiveCell.Value = UCase(codeprod)
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.Value = quantite
End If
End Sub
ce code fonctionne bien si je pars de la cellule A2 mais moi je voudrais commencer à la cellule A23 ET LA CA COINCE....
merci de votre aide
linda
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Bonsoir Lindette,
Est-ce que tu souhaites ?
Sub remplirdevis() Dim codeprod Dim quantite codeprod = InputBox("Saisissez le code produit :", "SAISIE CODE PRODUIT") quantite = InputBox("Saisissez la quantité correspondante:", "SAISIR QUANTITE PRODUIT") If Range("A2").Value = "" Then Cells(2, 1).Value = UCase(codeprod) Cells(2, 3).Value = quantite Else Ligne = Range("A65536").End(xlUp).Row + 1 Cells(Ligne, 1).Value = UCase(codeprod) Cells(Ligne, 3).Value = quantite End If End Sub
Nota : l'instruction 'Cells(Ligne, Colonne)' est plus simple que 'Range()' pour manipuler des cellules. 'Range()' en fait est utilisé surtout pour manipuler des plages de cellules.
On peut d'ailleurs parfaitement combiner les 2 mots-clés de cette manière :
'Range(Cells(1, 1), Cells(10, 5)).Select'
D'autre part, il n'est pas nécessaire de sélectionner une cellule pour écrire dedans, ce qui simplifie grandement le code.
Espérant avoir répondu à ta question.
Cordialement.
