Mon Code est-il correct ?

Philo · 10 Janvier 2016

Bonjour le forum
j'ai un petit problème avec mon code en Worksheet_Change ligne bleu dans les feuilles quand je rentre un film il ne le compte dans la cellule 4 (couleur bleu mais quand je supprime un film la j'ai un souci la ligne bleu remonte en ligne A2

merci

Bebere · 10 Janvier 2016

Re : Mon Code et t'il correcte ?

bonjour Philo
cela vient du tri,bas prend la ligne bleue avec

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
lTotal = [B65000].End(3).Row - 1
If Target.Column = 2 Then
Rows(Target.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
bas = Range("A" & lTotal).End(3).Row
Range("A1" & bas).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, Orientation:=xlTopToBottom
End If
If Target.Column <> 1 Then

Cells(bas + 2, 1) = Application.CountA(Range("A2:A" & [A65000].End(3).Row))

Cells(bas + 2, 3) = Application.CountA(Range("C2:C" & [A65000].End(3).Row))
Cells(bas + 2, 4) = Application.CountA(Range("D2" & [A65000].End(3).Row))
End If
Application.EnableEvents = True
End Sub

tu pouvais te servir de mettre sous forme de tableau

Philo · 10 Janvier 2016

Re : Mon Code est-il correct ?

Bonjour Bebere
merci pour ce début de réponse mais je n'est plus la somme total en A130, C130 et D130 quand je rentre une données

Bebere · 10 Janvier 2016

Re : Mon Code et t'il correcte ?

Philo
comme suit

Cells(ltotal + 2, 1) = Application.CountA(Range("A2:A" & [A65000].End(3).Row))
Cells(ltotal + 2, 3) = Application.CountA(Range("C2:C" & [A65000].End(3).Row))
Cells(ltotal + 2, 4) = Application.CountA(Range("D2" & [A65000].End(3).Row))

Philo · 10 Janvier 2016

Re : Mon Code et t'il correcte ?

Bebere

les smileys corresponde a quoi ?

j'ai maintenant le souci quand je rentre un nouveau film

j'ai des information qui s’écrive deux ligne en dessous

mais je n'est pas le total espérer par rapport a la MFC de la colonne C Et D
c'est quoi (ltotal) ou (Total)

excfl · 10 Janvier 2016

Re : Mon Code et t'il correcte ?

Bonjour le forum,

"Mon Code est t'il correcte ?"

Thème de philo : "« La distraction est-elle un bien ou un mal ? »

Philo · 10 Janvier 2016

Re : Mon Code est t'il correcte ?

bonjour excfl
merci mais les fautes d'orthographe n'est pas le problème

Bebere

les smileys corresponde a quoi ?

j'ai maintenant le souci quand je rentre un nouveau film

j'ai des information qui s’écrive deux ligne en dessous

mais je n'est pas le total espérer par rapport a la MFC de la colonne C Et D
c'est quoi (ltotal) ou (Total)

excfl · 10 Janvier 2016

Re : Mon Code est t'il correcte ?

Philo à dit:
bonjour excfl
merci mais les fautes d'orthographe n'est pas le problème

Mon Code est t'il correcte ?

Encore distrait : tu n'as corrigé que 50% des fautes.

Autre pensée pour un Philo :
L’orthographe est de respect ; c’est une sorte de politesse.
Emile-Auguste Chartier, dit Alain, Propos sur l’éducation (1932).

Philo · 10 Janvier 2016

Re : Mon Code est t'il correct ?

voila c'est corrigé

ROGER2327 · 10 Janvier 2016

Re : Mon Code est t'il correct ?

Bonjour à tous.

Faisons-nous chier jusqu'au bout du respect et de la politesse chers à notre vénéré Alain :

« Mon code (sans majuscule) est-il (sans « t » euphonique) correct ? »

Bonne journée et bon courage.

ℝOGER2327
#8171

Vendredi 13 Décervelage 143 (Saint Guillotin, médecin - fête Suprême Quarte)
20 Nivôse An CCXXIV, 5,5033h - van
2016-W01-7T13:12:28Z

Philo · 10 Janvier 2016

Re : Mon Code est-il correct ?

Bebere

les smileys corresponde a quoi ?

j'ai maintenant le souci quand je rentre un nouveau film

j'ai des information qui s’écrive deux ligne en dessous

je crois que j'ai un problème avec la ligne

Cells(ltotal + 2, 1) = Application.CountA(Range("A2:A" & [A65000].End(3).Row))

mais je n'est pas le total espérer par rapport a la MFC de la colonne C Et D
c'est quoi (ltotal) ou (Total)

Bebere · 10 Janvier 2016

Re : Mon Code est-il correct ?

bonjour Excfl,Roger

Philo voilà le fichier et essaye de comprendre ce que tu fais
code fait pour feuille John Wayne

Philo · 10 Janvier 2016

Merci BEAUCOUP Bebere
cela fonctionne tres bien je vais voir ou j'ai fait des erreurs

Bonne Soirée Merci

Philo · 15 Janvier 2016

Re : Mon Code est-il correct ?

Bonjour le forum
je reviens vers vous pour un petit souci quand je rentrer un croix ou un Vue en colonne C et D je n'ai pas le total qui ce mes a jour automatiquement dans la cellule en bleu est ce que vous pouvez me dire ou et le problème pour que j'ai le bon nombre je suis obliger de rajouter un film et de le supprimer après

j’espère que je suis clair

Amicalement

Philo · 17 Janvier 2016

Re : Mon Code est-il correct ?

Bonjour le forum
je reviens vers vous pour un petit souci quand je rentrer un croix ou un Vue en colonne C et D je n'ai pas le total qui ce mes a jour automatiquement dans la cellule en bleu est ce que vous pouvez me dire ou et le problème pour que j'ai le bon nombre je suis obliger de rajouter un film et de le supprimer après

j’espère que je suis clair le fichier et en #14

Amicalement

Mon Code est-il correct ?

Philo

XLDnaute Occasionnel

Pièces jointes

Bebere

XLDnaute Barbatruc

Philo

XLDnaute Occasionnel

Bebere

XLDnaute Barbatruc

Philo

XLDnaute Occasionnel

excfl

XLDnaute Barbatruc

Philo

XLDnaute Occasionnel

excfl

XLDnaute Barbatruc

Philo

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Philo

XLDnaute Occasionnel

Bebere

XLDnaute Barbatruc

Pièces jointes

Philo

XLDnaute Occasionnel

Philo

XLDnaute Occasionnel

Pièces jointes

Philo

XLDnaute Occasionnel

Discussions similaires