4845 résultats trouvés

par LouReeD
Hier, 22:46
Forum : Excel - VBA
Sujet : Mettre formule à rien
Réponses : 8
Vues : 64

Re: Mettre formule à rien

Bonsoir,

si ce n'est qu'esthétique alors regardez ce qui est encadré en "orange" :
pas de zéro2.png
En fait cette option de cacher les zéros est propre à chaque feuille du classeur, il vous suffit donc de choisir une à une les feuilles où vous voulez masquer les 0.

@ bientôt

LouReeD
par LouReeD
Hier, 21:14
Forum : Applications Excel
Sujet : USERA = USErfoRm acAdémie
Réponses : 11
Vues : 579

Re: USERA = USErfoRm acAdémie

Sébastien, bonjour ! :-) Et bien j'avoue : je ne savais pas ceci ! Mais c'est trop géniale ! 8[] Est-ce nouveau ? Je ne sais même pas comment j'ai pu passer à côté ! Bon ben voilà tout est résumé : Auteur : LouReeD Nombre d'applications : 18 Nombre de téléchargement : 201360 Merci encore à vous Séba...
par LouReeD
Hier, 21:07
Forum : Excel - VBA
Sujet : Incrémenter nom onglet
Réponses : 11
Vues : 71

Re: Incrémenter nom onglet

Maréchal, Mais c'est que tu as raison ! Quand même depuis qu'on "se connaît" vous devriez le savoir, non ? ;-) et de mon coté en lisant ceci : Hors, j'aimerais l'ordre inverse, 4, 3, 2 et Pense bête. j'ai supposé que le "1" était l'original... Et mon code fonctionne très bien qu'avec l'original exis...
par LouReeD
Hier, 06:33
Forum : Excel - VBA
Sujet : Incrémenter nom onglet
Réponses : 11
Vues : 71

Re: Incrémenter nom onglet

Bonsoir Maréchal ;-) En fait dans sa boucle il est dit : si strNewName existe alors strNewName = strNewName & "N°" & i; ou plus court : strNewName = "Pense bete N°" & i For i = 2 To 15 If Feuil_Exist(ThisWorkbook.Name, strNewName) = True Then strNewName = "Pense bete N°" & i Else ' si pense bete 3 n...
par LouReeD
14 octobre 2018, 22:46
Forum : Excel - VBA
Sujet : Incrémenter nom onglet
Réponses : 11
Vues : 71

Re: Incrémenter nom onglet

Essayez ceci alors : Sub CopiePB() Dim strNewName As String Dim i As Integer strNewName = "Pense bete" On Error Resume Next For i = 2 To 15 Sheets(strNewName & i).Activate If Err > 1 Then If i = 2 Then ActiveSheet.Copy Before:=Worksheets(Worksheets("Pense bete").Index) strNewName = strNewName & "2" ...
par LouReeD
14 octobre 2018, 21:18
Forum : Excel - VBA
Sujet : Incrémenter nom onglet
Réponses : 11
Vues : 71

Re: Incrémenter nom onglet

En effet je n'avais pas compris :oops: Essayez ceci : Sub CopiePB() Dim strNewName As String Dim i As Integer strNewName = "Pense bete" For i = 2 To 15 If Feuil_Exist(ThisWorkbook.Name, strNewName) = True Then strNewName = "Pense bete N°" & i Else ' si pense bete 3 n'existe pas alors on coie avant "...
par LouReeD
14 octobre 2018, 21:10
Forum : Excel - VBA
Sujet : Calendrier automatique
Réponses : 1
Vues : 42

Re: Calendrier automatique

Bonsoir,

je suis chauvin donc je vous propose ceci : https://www.excel-pratique.com/fr/telec ... -no311.php
Maintenant dans la partie téléchargement, il y a d'autre applications qui pourrait correspondre à ce que vous cherchez à faire ;-)

@ bientôt

LouReeD
par LouReeD
14 octobre 2018, 21:04
Forum : Excel - VBA
Sujet : Incrémenter nom onglet
Réponses : 11
Vues : 71

Re: Incrémenter nom onglet

Bonsoir,

en somme si pense bête est la deuxième feuille de votre classeur les copies doivent alors être copie en position 2
Du coup votre code serait :
ActiveSheet.Copy Before:=Worksheets(2)

@ bientôt

LouReeD
par LouReeD
14 octobre 2018, 18:58
Forum : Excel - VBA
Sujet : Problème exécution macro suivant cellule
Réponses : 7
Vues : 39

Re: Problème exécution macro suivant cellule

Bonsoir, pour suivre "l'évolution" d'une cellule (ou autre), il faut utiliser les surveillances événementielles de la feuille. Pour cela, clic droit sur le nom de l'onglet de la feuille, afficher le code, sur la fenêtre de droite de VBE liste déroulante en haut à gauche, choisir "worksheet" puis lis...
par LouReeD
14 octobre 2018, 10:02
Forum : Applications Excel
Sujet : USERA = USErfoRm acAdémie
Réponses : 11
Vues : 579

Re: USERA = USErfoRm acAdémie

Bonjour,

ça monte gentiment ;-)
Téléchargement.png
@ bientôt

LouReeD