Merci pour vos réponses ! Cela m'a été très utile
Type: Messages; Utilisateur: verredewhisky
Merci pour vos réponses ! Cela m'a été très utile
Et bien j'aimerais avoir une feuille visible et l'autre pas.
J'ai une macro qui crée une nouvelle feuille dans un nouveau classeur mais le classeur initial de la macro n'est pas visible, tout se...
Bonjour tout le monde,
J'ai pas trouvé la réponse sur internet, comment fait-on pour copier une feuille d'un classeur d'une application vers une autre classeur d'une autre application ?
Set...
C'est quoi ton soucis exactement ? Montre ta boucle pour qu'on puisse la corriger. Tu dois pouvoir facilement régler le problème avec un if.
Tu as déjà écrit le code qui te fait le graphique ? tu peux le montrer ?
Si tu veux pas coder tu peux créer le graphique et rajouter les zones en faisant ->insertion->forme->rectangle et en...
Dim Nom As String
Nom = Ryan
ActiveCell.FormulaR1C1 = _
"=IF('[DIQ référence " & Nom & ".xls]Volet.....
With Sheets("Récap").PageSetup
.Orientation = xlLandscape
.BlackAndWhite = False
end with
Exemples d'autres propriétés :
With Sheets("Récap").PageSetup
Je pense que tu es obligé de tout taper. Ca te prendra de toute façon moins de temps que de chercher une solution lol.
Par macro ? Sinon faut utiliser les règles dans la mise en forme conditionnelle mais dans ce cas tes pas dans le bon forum...
J'ai pas bien compris ce que tu veux faire, qu'est-ce que tu entends par "afficher" les sous-options ? dans le userform ? dans un nouvel onglet ? par un msgbox ?
C'est quoi ce que tu cherches à faire avec cette macro ? Pas simplement copier des cellules apparemment
tu peux utiliser la fonction right ou split ou les regex :
http://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/
http://www.developpez.net/forums/archive/index.php/t-1310074.html
Il faut faire une itération sur la cellule à sélectionner
faux :
ActiveCell.Offset(1, 0).Activate
juste :
Tout le plaisir est pour moi! Mets sujet résolu si c'est bon.
Feuille_Cible.Cells(maligne, 98).Value = Feuille_Source.Range(Cells(lig, 4), Cells(lig, 15)).Value
L'erreur est que le nom de la destination est le nom de ton classeur actuel, ThisWorkbook prend le classeur sur lequel s’exécute la macro.
faux :
Destination = ThisWorkbook.Name
juste :
Et pis sinon ça va ?
Sérieusement, faut montrer du code et poser une question à la fois sinon personne t'aidera.
problème feuille bouton saillie, tu peux montrer le code du bouton et expliquer...
Il existe des programmes payants pour ça. Il brouille ton code vba et désactive l'accès aux macros dans l'application.
Tiens voilà le code pour des chiffres et j'ai fait une opération avec z pour vérifier qu'il s'agisse bien de chiffres.
Sub test()
Dim Tableau() As String
Dim i As Integer
Dim x As Double...
Tu es peut être victime de cross infection. Un shellcode est ajouté à ton fichier et son extension est changé. Dans ce cas tu ne peux plus l'ouvrir avec excel.
Sinon, je ne connais pas de cross...
Tu arrives à l'ouvrir avec excel ? Tu peux mettre sur le forum ?
Il faut mettre ton nom de fichier dans des variables et jouer avec ces variables.
Sub Màj_DCOL()
'
' Màj_DCOL Macro
'
'
dim nomFichier as string
Merci pour ta réponse!
En effet, je l'envoies dans une cellule mais ça marche pas même en changeant le format de la cellule en "texte".
D'autres idées ?
Bonjour,
Je voudrais ajouter un 0 à la fin d'un string mais ça marche pas :cry:
dim thisString as string
thisString = "605.1"
thisString = thisString & "0"
'retourne 605.1 mais je voudrais...
Tas pas besoin de chaque fois mettre les sheets().Range().value
Si tu ouvres un nouveau classeur autre que celui dans lequel tu travailles :
Set newbook =...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.