aide sur formule

[angoul]

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

 

[JCGL]

Re : aide sur formule

Bonjour à tous,

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

Columns(I:I).ClearContents

le seconde probleme j'aimerai que mon bouton que j'ai creer suive la descente de ma barre a droite.

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

 

[Robert]

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

.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 !

 

[JCGL]

Re : aide sur formule

Bonjour à tous,
Salut Robert,

Pour le bouton...

A+ à tous

 

[Robert]

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 !

 

[JCGL]

Re : aide sur formule

Bonjour à tous,

Pour tout te dire Robert : moi aussi... Arf Arf

A++
A+ à tous

 

[angoul]

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

 

[JCGL]

Re : aide sur formule

Bonjour à tous,

Oups, j'ai oublié les "

Columns("I:I").ClearContents

Désolé

A+ à tous

 

[angoul]

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

 

[angoul]

Re : aide sur formule

personne peut m'aider a resoudre mon petit probleme ???

 

[JCGL]

Re : aide sur formule

Bonjour à tous,

L'erreur pourrait provenir de l'USF mais il manque la feuille 'ACCES AU PROGRAMME'.

Sans conviction aucune

A+ à tous

 

[angoul]

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