Discussion :

[BylTech]

Bonjour à tous.
Voilà mon problème: (Toutes les cellules, colonnes, valeurs, etc. sont des exemples)

Je souhaite effacer le contenu d'une cellule de la colonne A de la feuille 1, qui contiens 8, quand le contenu de la cellule B1 de la feuille 2 vaut 10.
La position de la cellule de la colonne A à effacer est variable. On peut saisir 8 n'importe où entre 1 et1500. Je saisi en A15.
J'ai tout essayé, et après avoir parcouru le web en long et en large, il s'avère a priori que l'on ne peut pas faire ça avec les fonctions classiques d'Excel. Il faut donc passer par du VBA, et je suis pas fort…
Ce que j'ai fais, avant de baisser les bras:
Sur la colonne A feuille 1, j'ai fais un contrôle de doublon pour être sûr de n'avoir qu'une fois la valeur 8 que je veux effacer.
Sur la feuille 2:
En A1 , j'inscrit 8, valeur de la cellule que je cherche à effacer.
En B1, je saisi 10 qui est le déclencheur de l'action d'effacement.
En C1, j'ai saisi la formule "=EQUIV(A1;'feuille 1'!A1:'feuille 1'!A1500;0)" qui me donne le numéro de ligne de la cellule de colonne A feuille 1 contenant 8, donc je récupère 15 en C1
Jusque là, ça fonctionne.
Ensuite, ça se dégrade.
J'ai fait clic droit sur l'onglet "feuille 2" et dans la fenêtre VBA, j'ai écrit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Integer   
I = Range("C1") 'Je veux ranger dans "I" la valeur de C1 qui vaut 15
           If Range("B1") = 10 Then 
                                  Sheets("feuille 1").Range("A1" & I-1).ClearContents 
                                  ' Avec Range("A1"& I-1), je souhaite atteindre la cellule de la colonne A qu'il faut effacer.
                                  ' Comme A1 est en 1, j'enlève 1 à l'index "I" qui vaut 15. J'obtiens donc A1+14 , et dans ma logique, j'efface la cellule A15
                       End If                                                                                       
End Sub

Eh bé non !!!!

Bon, j'ai 2 soucis:
1- La partie VBA ne marche pas bien que je n'ai pas de défaut de compilation. C'est donc une erreur "logique"
2- Quand je veux utiliser le débogage pas à pas, en tapant F8, je n'obtiens qu'un petit 'ting' et quand je veux faire F5 exécution, je n'ai pas ma petite macro dans la liste de choix.

Help me !

Merci d'avance

[Theze]

Bonjour,

C'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("feuille 1").Range("A" & I - 1).ClearContents

et non :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("feuille 1").Range("A1" & I - 1).ClearContents

Car dans ton cas, tu travaille sur la cellule A114 et A14.

Hervé.

[BylTech]

Merci Hervé.
Donc je comprends que l'on travaille sur des valeurs texte en faisant ça, et que l'on concatène.
Je pensais qu'on travaillait en numérique.
Ceci dit, ça ne marche qu'en même pas.
Là, je n'ai servi que la dernière mouture. J'avais déjà écrit ça lors de mes multiples tentatives.

Mais pourquoi je ne peut pas utiliser le débogueur (F8)?, et pourquoi ce code n'apparait pas
dans la liste de choix quand je fait "executer sub/useforme (F5).?
Ce n'ai pas une "Sub" ?
Si je pouvais voir ce qui se passe pas à pas, ça m'aiderai.

Cordialement

Philippe

Je joins mon petit fichier: efface cellule.xls

[Marc-L]

Bonjour, bonjour,

ne pas confondre simple procédure quelconque et procédure évènementielle !

Tester le code au besoin dans une simple procédure avant de l'appliquer dans un évènement …

‼ (cf règles du forum)

[BylTech]

OK merci du conseil
J'y travaille dès que possible.

Je clôture la discussion

[Theze]

Bonjour,

La discussion est résolue mais juste une petite précision.

Mais pourquoi je ne peut pas utiliser le débogueur (F8)?, et pourquoi ce code n'apparait pas
dans la liste de choix quand je fait "executer sub/useforme (F5).?
Ce n'ai pas une "Sub" ?

Tout simplement parce qu'un argument est demandé ! et de ce fait, la Sub n'est pas visible dans la boite (c'est une possibilité pour "cacher" une sub, demander un argument factice). Pour tester, il te faut appeler la sub par l'intermédiaire d'une autre en passant l'argument :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
 
    Worksheet_Change ActiveCell
 
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    MsgBox "L'adresse de la cellule passée en argument est : " & Target.Address(0, 0) & vbCrLf & "Donc, on voit que ça marche !!!"
 
End Sub

Hervé.

[BylTech]

Merci Hervé pour ces précisions...
J'ai clôturé la discussion parce que il faut que je m'investisse plus pour éviter d'abuser de vos bons conseils
à tous...
Je suis automaticien depuis longtemps, donc programmer je sais dans la philosophie, mais c'est quand même
vraiment différent. J'ai des habitudes, des réflexes, des acquis et pour le coup, je suis obligé de m'y
remettre pour m'adapter et apprendre.
Là, j'avais besoin pour une affaire où je dois gérer des lancement et des suivi de fabrications, d'utiliser Excel
plus que pour ces fonctions de tableur, et étant pris par le temps, j'ai opté pour l'entraide, et ça a fonctionné.
J'ai encore du boulot dessus, mais le fichier est fonctionnel à 90%.

Toujours est-il que ça fait m'a découvrir le potentiel d'Excel. Je savais qu'il y avait des possibilités, mais sans plus.
Là, je crois que j'ai mis le doigt dans les pignons. Ça m'a vraiment donné envie d'aller plus loin.

J'ai parlé de fonctionnel à 90% au dessus, mais j'ai besoin de 100%, donc il est pratiquement sûr
que j'aurai encore besoins de votre savoir faire. Je me sens encore bien novice.

Encore grand merci à tous et longue vie à ce forum.

Philippe