17 résultats trouvés

par ozannmar
15 février 2020, 19:33
Forum : Excel - VBA
Sujet : Question sur vb.chartres 1.gen
Réponses : 0
Vues : 43

Question sur vb.chartres 1.gen

Bonjour, Je me retrouve dans une situation bizarre .... J'ai voulu ouvrir un classeur Macro de ma conception et là impossible . "Ficihier introuvable" Le fichier se trouvait sur le bureau. Je me suis dit qu'il a eu un soucis et j'ai pris une sauvegarde . En ouvrant la sauvegarde, il y a l'antivirus ...
par ozannmar
31 janvier 2020, 21:39
Forum : Excel - VBA
Sujet : Boucle
Réponses : 1
Vues : 30

Boucle

Bonjour, Est ce que quelqu’un pourrait me dire si il y a une erreur dans mon code ? Je cherche à sélectionner K2 Puis il y a une boucle de 5 fois où il répète le code if. Le problème c'est qu'il s'arrête à Range("k2). select. Merci Range("K2").Select For i = 1 To 5 If activecell.Value = "non" Then S...
par ozannmar
30 janvier 2020, 21:26
Forum : Excel - VBA
Sujet : Recherche Valeur sur autres feuilles
Réponses : 3
Vues : 792

Re: Recherche Valeur sur autres feuilles

C'est parfait !
par ozannmar
30 janvier 2020, 21:02
Forum : Excel - VBA
Sujet : Recherche Valeur sur autres feuilles
Réponses : 3
Vues : 792

Re: Recherche Valeur sur autres feuilles

Sub Chercher() ' Selectionne la première cellule du tableau Range("A2").Select Dim c As Range Dim TaValeur As String TaValeur = activecell.Value Set c = Sheets("Paramètre Liste de Garde").Range("A1:A7").Find(TaValeur, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then Set c = Nothing Else ...
par ozannmar
30 janvier 2020, 18:47
Forum : Excel - VBA
Sujet : Recherche Valeur sur autres feuilles
Réponses : 3
Vues : 792

Recherche Valeur sur autres feuilles

Bonjour à tous, J'ai une question. Je cherche à faire en vba. J'aimerai qu'il recherche la valeur de la Cellule A2 de la feuille 1 dans l'ensemble d'une plage de données présente sur la feuille 3 (de A2 à A5) Si cette valeur est là alors on exécute la condition sinon on fait autre chose. Jje pense q...
par ozannmar
26 janvier 2020, 17:52
Forum : Excel - VBA
Sujet : Copié mise en page Onglet Multipage
Réponses : 6
Vues : 62

Re: Copié mise en page Onglet Multipage

Sur la dernière image j’arrive pas à copié exactement la mise en forme et le reste (depuis ici la page 1 vers tous les onglets représentés par des dates)

Je suis dsl en lisant le code j'avais l'impression qu c'était des cellules et donc j'vais peur de ne pas être clair.
par ozannmar
26 janvier 2020, 17:40
Forum : Excel - VBA
Sujet : Copié mise en page Onglet Multipage
Réponses : 6
Vues : 62

Re: Copié mise en page Onglet Multipage

For i = 1 To Cpt + 1 MultiPage1.Pages.Add UserForm3.MultiPage1.Pages(i).Caption = Sheets(i).Range("J2") Me.MultiPage1.Page(1).Copy Me.MultiPage1.Page(i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Voilà où j'en suis Erreur d"éxecution 438
par ozannmar
26 janvier 2020, 17:16
Forum : Excel - VBA
Sujet : Copié mise en page Onglet Multipage
Réponses : 6
Vues : 62

Copié mise en page Onglet Multipage

Bonjour,

Je cherche à copié exactement la mise en page d'un onglet multipage vers un autre onglet.

J'ai essayé .copie et . paste mais à chaque fois il y a un décalage.

Comment faire ?
par ozannmar
26 janvier 2020, 16:40
Forum : Excel - VBA
Sujet : Modifier caption sur le multipage
Réponses : 8
Vues : 112

Re: Modifier caption sur le multipage

Merci pour ton fichier. Par contre cela ne marche pas, j'ai l'impression qu'il ne prends pas en compte la condition. J'ai mis des pauses pour voir où il ne marche pas. For i = 1 To Cpt + 1 MultiPage1.Pages.Add UserForm3.MultiPage1.Pages(i).Caption = Sheets(i).Range("J2") 'là ça marche très bien If S...