Supprimer une cellule et ré écrire dessus (VBA EXCEL)Résolu

Question

Bonjour :D

J'aurais besoin d'un petit coup de mon sur le fait qu'un CommandButton sur mon useform appelé  "Effacer dernière mesure". J'aimerais que ce bouton efface la dernière cellule Excel remplie(texte et couleur) pour pouvoir ré écrire la prochaine mesure dessus. (Sauf que cette dernière cellule Excel n'est pas définie, elle est comprise entre la seconde et la 5 000 ème) Est ce possible avec VBA de réaliser ce genre de code? Si oui, je ne serait pas contre quelques pistes! 


 Je vous remercie d'avance de vos réponse :)

shinrei69 · Accepted Answer

ShayW : C'était grâce à des intervalles définit préalablement ;)
J'aurais bien aimé pour les lingots d'or malheureusement ce sont des cartons ^^


J'ai réussi, je laisse ça pour les prochains qui auront le même problème :


Private Sub CommandButton3_Click()
Dim test4 As Integer
Dim test5 As Integer
Nb_line = Nb_line - 1
test4 = MsgBox("Voulez vous effacer la dernière pesée?", vbYesNo, "Programme de pesée")
If test4 = vbYes Then
Range("B2").Offset(Nb_line, 0).ClearContents
test5 = MsgBox("La dernière valeur à été supprimée.", vbInformation, "Programme de pesée")
End If


Merci quand même à toi Vorens de t&#8217;être intéressé et impliqué! :)

ucfoutu · Answer

Bonjour,

j'ai frappé "dernière cellule" en utilisant le moteur de recherche de ce forum
Regarde la page que j'ai obtenue en quelques secondes
Le reste (effacement, etc...) est élémentaire !


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

shinrei69 · Answer

Oui j'ai déjà recherché et testé le "ActiveCell.SpecialCells(xlLastCell).Select"
Sauf qu'il m'efface la dernière cellule du tableau excel (La 10 000ème pour moi^^). Je voudrais qu'il efface la dernière utilisée.

ucfoutu · Answer

- un petit "regard" sur ton aide VBA t'aurait appris ce qu'est exactement xlLastCell
- tu aurais alors cherché autre bchose dans les discussions figurant dans la page vers laquelle je t'ai dirigé.
Tu aurais trouvé ta réponse ici et tu aurais ainsi gagné beaucoup de temps 


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

Vorens · Answer

Bonjour,


Le code suivant est à adapter à ton besoin, Il te permet de sélectionner la dernière cellule utilisée dans la colonne sélectionnée.

'Composition de l'adresse de la dernière cellules pleine dans la colonne des dates

    Sheets("Janvier").Activate
    derniereCel1 = ActiveSheet.UsedRange.Rows.Count
    Range("A" & derniereCel1).Select


Si c'est ce que tu cherche =>Valide la réponse.

Cordialement

Vorens · Answer

Après, effacer le contenu de cette cellule ne devrais pas te poser de problèmes. (Petit ajout )

ucfoutu · Answer

Bonjour, vorens,
Le code suivant est à adapter à ton besoin, Il te permet de sélectionner la dernière cellule utilisée dans la colonne sélectionnée.

Code Visual Basic :

'Composition de l'adresse de la dernière cellules pleine dans la colonne des dates

    Sheets("Janvier").Activate
    derniereCel1 = ActiveSheet.UsedRange.Rows.Count
    Range("A" & derniereCel1).Select


C'est du n'importe quoi !
Imagine donc que la cellule C3000 soit remplie, mais que la dernière cellule remplie de la colonne A soit la cellule A20 ...
Le UsedRange serait la plage A1:C3000 ===>> ton Rows.count sera = 3000 ===>> la cellule sélectionnée sera la  A3000 ou lieu de A20 


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

shinrei69 · Answer

C'est à peu près ce que je cherchai en rajoutant un .ClearContent cela remet la couleur à Zéro. Mais ensuite le problème c'est quand je refait des mesures, la cellule est "sautée" et reste à 0. (Ce qui falsifie mes moyennes et autre écart type).

shinrei69 · Answer

Rectification : Elle ne reste pas à Zéro mais est vide.

Vorens · Answer

Il à écrit "Effacer dernière mesure". On peut partir du principe qu'elle est en bas du tableau. J'ai précisé "A adapter au besoin du problème"

Pour re écrire dans la bonne cellule, lors de ton enregistrement comment tu indique au programme ou aller écrire la prochaine mesure ?

Vorens · Answer

Et effectivement, si la colonne c'est pas plein cette solution ne fonctionne pas.

shinrei69 · Answer

Oui, la dernière mesure seras forcément en bas du tableau mais pas toujours au même endroit. 

J'utilise dans mon tableau un "Nb_line = Nb_line + 1" pour écrire à la suite les valeurs.
Pour supprimer un "Nb_line = Nb_line" + la fonction clearcontent et une remise en blanc de la couleur.

 Je sait que c'est normal quelle ne soit pas prise en compte, vu qu'on se met dessus pour la supprimer, et on demande de passer à la case d'après pour écrire la nouvelle valeur.
Mais je voudrais ré écrire la valeur qui la est après dans la cellule précédemment effacée.

ucfoutu · Answer

Joli mic mac, pourquoi effacer d'abord alors qu'il suffit d'écraser par les nouvelles données ? 

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

Vorens · Answer

Il te faut aller une petite fonction qui recherche la prochaine ligne vide de ta colonne pour y écrire la prochaine mesure (ucefutu va encore dire que c'est n'imp mais essais tjrs )

C'est toujours à adapter à ton utilisation

'Déterminer ou coller la prochaine mesure

    If Mois = 12 Then
        Sheets("Décembre").Activate
        valeurA2 = Range("A2").Value
    If valeurA2 = "" Then
    Else
        Range("A1").Select
        Selection.End(xlDown).Select
        ligne_active_base = ActiveCell.Row
        Range("A" & ligne_active_base + 1).Select
    End If

End If
  
'Memorise le n° de la ligne ou coller les données.__________________________________________________________________________

    ligne_active_base = ActiveCell.Row

Vorens · Answer

Joli mic mac, pourquoi effacer d'abord alors qu'il suffit d'écraser par les nouvelles données ?

Sa cey pas faut

shinrei69 · Answer

Joli mic mac, pourquoi effacer d'abord alors qu'il suffit d'écraser par les nouvelles données ?


Je n'y avait pas pensé tout simplement

Du coup il faudrait que je modifie quoi?

Vorens · Answer

Là sa va dépendre de ce que tu veux faire avec tes mesures. (Les archivés, faire un graphique avec la mesure en cours etc). Effacer la dernière parsque elle est fausse ou parsque t'en a plus besoin ?. tu vois comment ? ^^

shinrei69 · Answer

C'est un système de pesée dynamique en gros. Si la valeur est mauvaise elle est indiqué par mon Useform. L'opérateur vérifie le carton et le rempli avec ce qu'il manque, efface la dernière valeur et repése jusqu&#8217;à que ce soit bon. Mais comme le nombre de pesée doit correspondre au numéro de ligne (Merci le cahier des charges bidons). Je peux pas me permettre par exemple si 500 cartons sur 1000 sont mauvais d'avoir 1500 cellules avec 500 vide.

il faudrait donc, comme le dit ucfoutu écraser la dernière et ré écrire dessus.

Vorens · Answer

Vorens · Answer

Tu peux définir une condition comme par exemple un bouton "la mesure est bonne" il écrit à la suite (Comme ton pgr le fait déjà sauf erreur).

 et "la mesure est mauvaise" il ecrit par dessus, donc tu dois repérer l'adresse de la première cellule de la dernière donnée enregistrée (la mauvaise).

Je crois que tu repère pour la prochaine mesure l'adresse de la cellule suivante  "Nb_line = Nb_line + 1". 
T'as test de juste dire d'enregistrer la nouvelle mesure à "nb_line" ?

Supprimer une cellule et ré écrire dessus (VBA EXCEL)

23 réponses

Votre réponse

Discussions similaires