Mon Code est-il correct ?

B

Bebere

XLDnaute Barbatruc

• 10 Janvier 2016

• #2

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

Cliquez pour agrandir...

tu pouvais te servir de mettre sous forme de tableau

 

Vote positif 0 Vote négatif

P

Philo

XLDnaute Occasionnel

• 10 Janvier 2016

• #3

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

 

Dernière édition: 10 Janvier 2016

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 10 Janvier 2016

• #4

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))

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

P

Philo

XLDnaute Occasionnel

• 10 Janvier 2016

• #5

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)

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 10 Janvier 2016

• #6

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 ? »

 

Vote positif 0 Vote négatif

P

Philo

XLDnaute Occasionnel

• 10 Janvier 2016

• #7

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)

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 10 Janvier 2016

• #8

Re : Mon Code est t'il correcte ?

Philo à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

Philo

XLDnaute Occasionnel

• 10 Janvier 2016

• #9

Re : Mon Code est t'il correct ?

voila c'est corrigé

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 10 Janvier 2016

• #10

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

 

Vote positif 0 Vote négatif

P

Philo

XLDnaute Occasionnel

• 10 Janvier 2016

• #11

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)

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 10 Janvier 2016

• #12

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

 

Pièces jointes

• Film.xlsm

  31.2 KB · Affichages: 34
• Film.xlsm

  31.2 KB · Affichages: 33

Vote positif 0 Vote négatif

P

Philo

XLDnaute Occasionnel

• 10 Janvier 2016

• #13

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

Bonne Soirée Merci

 

Dernière édition: 15 Janvier 2016

Vote positif 0 Vote négatif

P

Philo

XLDnaute Occasionnel

• 15 Janvier 2016

• #14

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

 

Pièces jointes

• Film John WAYNE.xlsm

  33.7 KB · Affichages: 30
• Film John WAYNE.xlsm

  33.7 KB · Affichages: 33

Dernière édition: 17 Janvier 2016

Vote positif 0 Vote négatif

P

Philo

XLDnaute Occasionnel

• 17 Janvier 2016

• #15

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

 

Vote positif 0 Vote négatif