Recherche:

Il semblerait donc que la solution de concaténer ne fonctionne pas pour les couleurs.

Voici donc tout bêtement la solution trouvée :



Sub CopieValeurCase(Ligne As Integer, Colonne As...

Bonjour,

Je souhaite que la couleur d'une forme soit identique à la couleur d'une cellule active.

Voici le code pour récupérer la couleur de la cellule Active :


Function RecupCouleurCase()...

je comprend plus rien.

ESVBA la solution de ton fichier Excel fonctionne à mon taf mais pas chez moi !

j'ai la même version...

Merci ESVBA je ne sais pas ce qui c'est encore passé ce matin... C'était effectivement pas le bon fichier enfin bref, je l'ai échanger avec le bon.

Il est en Zip par ce que je n'es pas réussi à...

Si je ne me trompe pas comme te l'a dis corona

Application.Path c'est le logiciel Excel... et pas ton fichier Excel...

Utilise plutôt ThisWorkbook.Path pour l'adresse du fichier Excel ou se...

Toujours pas ESVBA

Voici ce que je cherchais...

Maintenant le soucis serais de faire en sorte que cela fonctionne pour tous les Usf utilisé même pour ceux appelé à l'intérieur d'une précédente...

Désolé pour le fichier joint gros plantage lorsque je l'es mis en ligne et donc fichier perdu.

J'ai donc supprimer le fichier vide et je le refais pour demain merci grisan29.

Ok bon ben désolé ESVBA mais ça ne marche pas néanmoins j'ai trouvé quelque chose qui me convient :

Mes Usf ont toutes la propriété Showmodal = False

Dans Usf1, j'appelle Usf2 avec un bouton et...

Problème Résolu,

Il m'a fallu installer Microsoft visual Basic Studio 2010, afin de compléter les bibliothèques.

Et modifier la clée Reg pour Windows 7 64 Bit
...

Je vais peut etre dire une betise mais tu as deux fois c:\



x = Shell("C:\Program Files\Microsoft Office\Office11\WINWORD C:\Cantiques\FichesBibliques\" & NomDuFichier & ".doc", vbNormalFocus)...

Bonjour Biggy30,

Ton code regarde dans la colonne A et récupère le numéro de la dernière cellule vide avec :


fin = Range("A65536").End(xlUp).Row


Mais ta plage à imprimer va de A1 à Q &...

Merci ESVBA,

Je viens de tester ta proposition mais cela ne fonctionne pas non plus.

Ben c'est justement ce que je souhaite évité... jouer à cache cache avec mes Usf au fur et a mesure que je vais les appelé pour m'en servir...

Dans mon Usf1 j'ai au moins 8 Commandbutton qui vont...

Bonsoir ESVBA

Si je ne me trompe pas la propriété "StartUpPosition" ne permet que le positionnement sur l'écran et non un positionnement en profondeur de l'objet. Devant, Derrière

Bonsoir Corona,

The Rhythm Of The Night... Ho Yeah...

Heu désolé ;)

Merci pour ta solution mais ce n'est pas ce que je recherche ou alors ça ne fonctionne pas...

Je voudrais qu'une fois...

Bon je m'incline les experts son décidément trop rapide...

Le code de Jérôme fonctionne bien et plus propre que le mien... lol

tu lance bien le code d'un bouton sur ta feuille?

Tu as été plus rapide que moi JFontaine ... Je propose quand même ma solution :




Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer

:mouarf: c'est exactement la page que je regardais...

Si je met :

UsF1 Showmodal = True
UsF2 Showmodal = True

UsF2 vient toujours se caché derrière UsF1 mais je ne peut pas bouger UsF1 pour...

Bonsoir et Merci pour ton aide casefayere mais j'ai essayé et ça me donne une erreur de compilation...

pour le teste dans userform2:




Private Sub CommandButton1_Click()...

Bonjour,

J'ai beau chercher je ne trouve pas... et pourtant j'ai déjà vu ça il me semble...

J'appelle une Userform2 à l'aide d'un commandbutton d'une Userform2.

Seulement quand je clic sur...

Je ne sais pas... je recopie bien les id et la valeur des singletons dépassant la valeur max dans la colone A et B...

Ou alors j'ai rien compris à ce que tu voulais faire... :mouarf:

Le...

As tu bien tester avec un bouton? ou renommer le sub ?

Je l'ai pourtant tester il me semble fonctionner...? :?

Voici ton fichier avec le code et un bouton

Tu as peut être la solution de passer par deux conditions If

par contre je comprend pas ce que tu souhaite faire avec les offsets...

.offset(numéro de ligne,numéro colonne)



Private Sub...

Salut Patrick

Je pense que ceci doit te convenir



Private Sub CommandButton1_Click()

nlignebd = Range("D65535").End(xlUp).Row
nlignels = Range("G65535").End(xlUp).Row