1561 résultats trouvés

par xorsankukai
Aujourd’hui, 10:50
Forum : Excel - VBA
Sujet : Envoyer un partie de feuille en PJ
Réponses : 4
Vues : 75

Re: Envoyer un partie de feuille en PJ

Re, Pour l'envoi par mail, un essai.... Source:........ https://forum.excel-pratique.com/viewtopic.php?t=21321 Sub EnvoiPage() Dim Destinataires As String, Sujet As String Dim AccuseReception As Boolean Destinataires = ActiveSheet.Range("E5") Sujet = ActiveSheet.Range("A1") & ActiveSheet.Range("I1")...
par xorsankukai
Aujourd’hui, 10:23
Forum : Excel - VBA
Sujet : Envoyer un partie de feuille en PJ
Réponses : 4
Vues : 75

Re: Envoyer un partie de feuille en PJ

Bonjour gaelc56000 , le forum, Pour l'impression: ...... macro à associer au bouton Sub impression() With ActiveSheet .PageSetup.PrintArea = "A1: K49" 'zone à imprimer ' .PrintPreview 'aperçu avant impression .PrintOut copies:=1 'impression (x 1) End With End Sub Copie de test navette.xlsm Cordialem...
par xorsankukai
Aujourd’hui, 10:10
Forum : Excel - VBA
Sujet : Detection de Doublons VBA
Réponses : 16
Vues : 181

Re: Detection de Doublons VBA

Bonjour ThauThème , :ave: , Tibérias , @ ThauThème : J'avais tenté d'adapter ton code mais hélas, sans arriver au résultat escompté. Sur mon excel, il subsiste un souci. Si tu as Steve en J5 et J6 sur les 2 feuilles, seul la msgbox avec J5 apparait. Si tu supprimes Steve en J5, aucun message me stip...
par xorsankukai
Hier, 20:31
Forum : Excel - VBA
Sujet : Detection de Doublons VBA
Réponses : 16
Vues : 181

Re: Detection de Doublons VBA

Bonsoir le fil, :pdm: Un essai.... Private Sub Worksheet_Change(ByVal Target As Range) Dim S1 As Worksheet 'déclare la variable S1 (onglet Salle1) Dim S2 As Worksheet 'déclare la variable S2 (onglet Salle2) Dim msg As String Dim i As Long, dl1 As Long Application.ScreenUpdating = False Set S1 = Work...
par xorsankukai
Hier, 12:43
Forum : Excel - VBA
Sujet : Detection de Doublons VBA
Réponses : 16
Vues : 181

Re: Detection de Doublons VBA

Bonjour Tiberias , ThauThème , En fait il faudrait detecter quand CEL.VALUE est vide car sinon la msg box affiche " Doublons de ! " alors que si CEL.VALUE est vide il devrait rien afficher du tout. Je ne parviens pas à reproduire ce problème avec mon fichier? https://forum.excel-pratique.com/posting...
par xorsankukai
17 septembre 2019, 11:00
Forum : Excel - VBA
Sujet : Compter ligne selon valeur de la colonne
Réponses : 14
Vues : 170

Re: Compter ligne selon valeur de la colonne

Bonjour BAROUTE78 , Moi j'ai compris qu'il fallait comptabiliser dans textbox1 le nombre de B101 qui a une correspondance YES ....de même pour textbox2 et B102... Tu étais donc sur la bonne piste... Et je n'avais pas pensé à la fonction NB.SI.ENS aussi tu l'as utilisée ? Je n'ai fait que retranscrir...
par xorsankukai
17 septembre 2019, 09:36
Forum : Excel - VBA
Sujet : Compter ligne selon valeur de la colonne
Réponses : 14
Vues : 170

Re: Compter ligne selon valeur de la colonne

Bonjour le fil,

As-tu testé ma proposition? ::(
https://forum.excel-pratique.com/posting.php?mode=reply&f=2&t=129749#pr796648

Cordialement,
par xorsankukai
16 septembre 2019, 17:42
Forum : Excel - VBA
Sujet : Detection de Doublons VBA
Réponses : 16
Vues : 181

Re: Detection de Doublons VBA

Bonjour Tiberias, le fil, il y a toujours ce problème, avec les 3 MsgBox qui s'enchaine Je ne rencontre pas ce problème sur mon excel.... :?? Si plusieurs doublons, une seule msgbox avec tous les doublons... En revanche , si aucun doublon, message vide. Attention toutefois, tu utilises l'évènement c...
par xorsankukai
16 septembre 2019, 17:14
Forum : Excel - VBA
Sujet : Compter ligne selon valeur de la colonne
Réponses : 14
Vues : 170

Re: Compter ligne selon valeur de la colonne

Bonjour New_VBA_User , le forum, dans ma colonne "C" j'ai les éléments "B101", "B102" plusieurs fois, j'aimerai les compter dans les textbox séparer si on a "YES" qui est marquée dans la colonne "G" j'arrive à compter les éléments B101 et B102, mais je ne sais pas comment faire avec la condition de ...
par xorsankukai
13 septembre 2019, 12:36
Forum : Excel - VBA
Sujet : Alignement texte avec VBA
Réponses : 6
Vues : 67

Re: Alignement texte avec VBA

Bonjour NatKJ, le forum,

A tester:
Sub test()

 Dim plage As Range, c As Range
 
  Set plage = Range("A31:A100")
   For Each c In plage
    If c.Value Like "SERVICES" Then c.HorizontalAlignment = xlCenter
   Next c
End Sub
Classeur1.xlsm
(19.88 Kio) Téléchargé 3 fois
Cordialement,