Macro pour changer de cellule si déjà occupée. Fermé

Question

Bonjour !

Je suis actuellement en CDD dans une petite entreprise, et l'on m'a demandé de créer une macro dans le but de remplir un tableau de chiffre d'affaires plus facilement. Cela fait trois ans que j'ai quitté les bancs de l'école donc je suis un peu plus que rouillée...

Il faudrait que lorsque mon supérieur saisi la somme, par exemple en B16, elle s'affiche (simple vous me direz). J'ai tout de suite pensé à InputBox. Mais la fois suivante il faudrait que la somme qu'il saisira s'affiche en B17 ! (déjà moins simple là pour moi)

J'ai déjà écrit ceci :


Sub montantHT()Dim valht As IntegerWith ThisWorkbook.Worksheets("Analyse MS & CA")valht = InputBox("Saisissez le CA HT du mois en cours : ")Range("B36") = valhtIf Range("B36") Is Not Null ThenRange("b37") = valhtEnd IfEnd WithEnd Sub

La partie avec le With m'a été conseillée par un ami, je n'ai jamais vu cela en cours, mais elle ne marche pas à première vue.

Je vais m'inscrire ce soir sur le site donc plus d'anonyme après.

Je vous remercie d'avance,
Anaïs

eriiic · Accepted Answer

Bonjour,

autre proposition :
Sub montantHT()
    Dim derlig As Long
    With Worksheets("Feuil1")
        derlig = .Cells(Rows.Count, "B").End(xlUp).Row
        .Cells(derlig + 1, "B") = Application.InputBox("Saisissez le CA HT du mois en cours : ", Type:=1)
    End With
End Sub
S'assure que la saisie est bien un nombre et le colle sous la dernière ligne occupée de B.
eric
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Normad · Answer

Bonjour,
Alors le With peut être utile, mais là il n'est pas utilisé dans les lignes qui suivent (il faut un point un début de ligne lorsqu'on fait référence au With pour éviter de repréciser).  Pour la déclaration de vahlt, c'est mieux de passer en Long qu'en Integer, sinon un Chiffre d'affaire de 50'000 génèrera une erreur.

Voilà le code corrigé en partant de l'idée qu'on remplira la cellule vide à partir de B36 en descendant chaque fois d'une ligne.

Sub montantHT()    Dim valht As Long, Ligne As Long, Test As String    Ligne = 36    With ThisWorkbook.Worksheets("Analyse MS & CA")        Test = .Range("B" & Ligne).Value                While Test <> ""            Ligne = Ligne + 1            Test = .Range("B" & Ligne).Value        Wend            valht = InputBox("Saisissez le CA HT du mois en cours : ")        .Range("B" & Ligne).Value = valht        End WithEnd Sub

ana · Answer

J'étais 'un petit peu' loin effectivement... mais maintenant j'ai compris, même si quelques termes restent encore obscurs.

Merci beaucoup à vous deux ! Après avoir terminé mes écritures comptables, j'ai passé l'après-midi dessus !!! *pleure de joie*

Encore merci et en vous souhaitant une agréable fin d'après-midi !

Anaïs

Macro pour changer de cellule si déjà occupée.

3 réponses

Discussions similaires