Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

aide sur formule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion angoul
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

angoul

XLDnaute Impliqué
Bonjour

j'ai besoin de votre aide pour 2 petits problemes

le premier j'aimerai que quand je clique sur mon bouton cela efface ma colonne I

voila le code que j'ai deja "
Private Sub MaJ_stock_Click()
Dim rep As Byte
Dim i%

With Sheets("Article")
rep = MsgBox("Voulez vous mettre à jour le stock ?", vbExclamation + vbYesNo)
If rep = vbYes Then
For i = 2 To .Range("I65536").End(xlUp).Row
If .Cells(i, 10).Value <> vide Then .Cells(i, 7).Value = .Cells(i, 10).Value
Next i
.Range("J2:J" & .Range("J65536").End(xlUp).Row).ClearContents
End If
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("I2:I65536")) Is Nothing Then
If Target.Value = "" Then Exit Sub
Target.Offset(0, 1).Value = Target.Value + Target.Offset(0, -2).Value
End If
End Sub
le seconde probleme j'aimerai que mon bouton que j'ai creer suive la descente de ma barre a droite.

merci d'avance de votre aide
 
Trier par date Trier par votes
Re : aide sur formule

Bonjour à tous,

angoul à dit:
le premier j'aimerai que quand je clique sur mon bouton cela efface ma colonne I
Cliquez pour agrandir...
Columns(I:I).ClearContents

angoul à dit:
le seconde probleme j'aimerai que mon bouton que j'ai creer suive la descente de ma barre a droite.
Cliquez pour agrandir...
Pas très clair mais essaye avec l'événement Scroll qui survient lorsque la zone de défilement est repositionnée.

Un petit fichier joint serait le bienvenu

A+ à tous
 
Vote positif 0 Vote négatif
Re : aide sur formule

Bonjour Angoul, bonjour le forum,

Je ne comprends pas Angoul tu dis vouloir effacer la colonne I et ton code efface la colonne J
Code: 
.Range("[COLOR=red]J[/COLOR]2:[COLOR=red]J[/COLOR]" & .Range("[COLOR=red]J[/COLOR]65536").End(xlUp).Row).ClearContents
Remplace J par I ça devrait le faire non ?

Quant à ton bouton qui accompagne le déplacement, pourquoi ne pas figer les volets par le menu Fenêtre/Figer les volets, et mettre le bouton dans la partie figée. Comme ça il est toujours accessible... Mais je sais qu'il y a des exemples sur le forum qui font ça.

Édition :

Salut JCGL !
 
Dernière édition:
Vote positif 0 Vote négatif
Re : aide sur formule

Bonjour le fil, bonjour le forum,

Pour dire la vérité JCGL je préfère une main baladeuse sur le bouton qu'un bouton baladeur sous la main... Mais, merci pour l'exemple !
 
Vote positif 0 Vote négatif
Re : aide sur formule

Merci de votre aide
le bouton qui suit c'est super sa marche
par contre la formule " Columns(I:I).ClearContents"
quand je la copie sous :
Next i
.Range("J2:J" & .Range("J65536").End(xlUp).Row).ClearContents
Columns(I:I).ClearContents
cela la met en rouge
End If

je comprend pas pourquoi
pour repondre a ta question robert, je peut pas remplacer ma formule :
.Range("J2:J" & .Range("J65536").End(xlUp).Row).ClearContents
car je veut garder la formule pour vider la colonne J aussi

merci de votre aide
 
Vote positif 0 Vote négatif
Re : aide sur formule

bonjours,
je revient a vous car j'ai toujour un message d'erreur
" Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I2:I65536")) Is Nothing Then
If Target.Value = " " Then Exit Sub
Target.Offset(0, 1).Value = Target.Value + Target.Offset(0, -2).Value
End If
End Sub"

je met mon fichier pour que quelqu'un puisse y regarder.
Cijoint.fr - Service gratuit de dépôt de fichiers

Avec un petit descriptif

merci d'avance
 
Vote positif 0 Vote négatif
Re : aide sur formule

je ne pense pas que cela vient de sa, car meme avec le fichier complet sa fait la meme erreur, peut etre y a t'il un autre facon d'effacer la colonne I ou alors mettre un zero a la place de l'effacer;

merci
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
621
un internaute
U
P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
204
philmaure
P
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
258
pascal21
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
998
n_turf
N
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
188
deudecos
  • Résolu(e)
XL 2019 Insérer un commentaire après clic droit en X (colonne 24) ?
Réponses
2
Affichages
221
anthoYS
  • Question Question
Autres résultats differents entre formule et macro (excel 2007)
2
Réponses
18
Affichages
556
dysorthographie
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
260
anthoYS
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
493
nabilexcel2007
N
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
288
anthoYS
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
812
lynyrd
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
925
TooFatBoy
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
554
dysorthographie
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
266
Nicolas JACQUIN
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
153
anthoYS
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
238
Marie L
M
V
  • Question Question
XL 2021 Mon codage ne fonctionne pas il devrais créer un numero automatique
Réponses
8
Affichages
275
Valtrase
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
348
patricko-13
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…