Résultats pour "ajouter avatar"

681 résultats pour cette recherche

Bonjour à tous,

Je voyais régulièrement sur certains sites, des profils avec des avatars personnalisés très sympathiques ... Et j'ai découvert assez récemment le site qui permet de créer ces avatars à son image (exemple de résultat => mon avatar) ...

Il est vrai que c'est assez agréable de pouvoir mettre un visage sur un pseudo (même si ce n'est pas une photo), je vais donc vous expliquer comment créer le vôtre simplement (et gratuitement), en espérant qu'un maximum de membres prendront la peine de le faire

Créer un avatar à son image

Rendez-vous sur FaceYourManga.com et cliquez sur l'un des 2 personnages.

Vous pourrez ensuite personnaliser tous les détails du personnage ...

Pour personnaliser le visage, cliquez sur les différents boutons gris et choisissez une forme, une couleur :

visage

Après le visage, cliquez sur les cheveux (à droite) et faites vos choix :

cheveux

Même principe pour les boutons suivants ...

Lorsque vous avez terminé, cliquez sur "Save" et entrez vos prénom/email.

Le lien de téléchargement vous aura été envoyé par email (cliquez sur le premier lien puis sur "Download avatar" en bas de page.

Exemple de résultat :

exemple

Ajouter votre avatar

Cliquez ici pour accéder à votre profil et ajouter votre nouvel avatar

Bonjour,

Un membre m'avait aidé à présenter mon avatar sur un fond transparent, mais les contours de mon Barbouille laissaient vraiment à désirer, ils étaient très flous.

J'ai maintenant placé une autre image plus nette, mais malheureusement sur un fond blanc.

Savez-vous comment avoir un avatar net sur un fond transparent ?

A vous relire.

37fichier-test.xlsm (33.65 Ko)

Bonjour a tous, suite à un premier topic une partie de ma solution existe déja mais il me faudrait un point supplémentaire qu'il me manque

Topic précédent : https://forum.excel-pratique.com/viewtopic.php?f=2&t=134506&p=826527

TL DR de ce qui suit : Je souhaiterai pouvoir éditer une BDD sur une feuille principale qui est mobile, sans avoir accès à la BDD (document destiné à être rempli par d'autres, nécessité de facilité d'utilisation)

Besoin de pouvoir écrire les date de début en "Fiche principale" et que ca arrive dans les colonnes correspondantes dans la BDD, Idem pour quantité, et de pouvoir avoir la trace similaire pour cocher pour voir si c'est réussi ou raté et que ca apparaisse dans la BDD (ou sur un autre feuillet, dans mon développement je comptais en inclure un deuxième)

Problème : seule la première donnée de la colonne D en fiche principale s'actualise

J'ai besoin d'une amélioration technique maintenant sur une deuxième problématique que j'ai maintenant.

J'aurai besoin d'avoir ce même système pour un nombre bien plus important de cellules, malheureusement de ce que j'ai pu essayer dans le code quand dans le code de la feuille 1, le mot clé or nous détruit pas mal de choses, je m'explique

De ce que j'ai pu tester depuis quelques heures, le mot clé or fait que seule ma première donnée sera modifiée en modifiant la donnée sur laquelle je me base, et si je décide de mettre and au lieu de or, toutes peuvent se modifier, mais uniquement si elles sont identiques.

J'aimerai donc pouvoir réaliser ce principe sur les colonnes "Quantité" et sur les colonnes "Date de début"

J'aimerai aussi pouvoir garder également une trace d'une prestation qui aurait été cochée ou non, même en modifiant le contrat sur lequel je me trouve (pouvoir avoir une marque "prestation réalisée" sur une BDD sur une autre feuille par exemple, ou il y aurait également les numéros de contrat

J'ai essayé rapidement de me frotter aux boucles pour résoudre ce principe (mes cellules que je souhaite faire marcher avec ce principe étant sur la même ligne) mais force est de constater que j'ai encore énormément à apprendre en VBA.

Auriez vous des idées pour répondre à cette problématique ?

Merci d'avance

Bonne journée à tous,

Evenfin

Bonjour,

Mon objet n'est peut être pas clair mais je pense qu'avec un fichier test explicatif cela le serait plus

Voila, dans le cadre d'une étude que je souhaite faire, certaines personnes vont devoir manipuler le fichier que je met en place, mais je souhaiterai verrouiller au MAXIMUM l'accès à la BDD pour éviter tout souci de changement de la base, tout en ayant quand même la possibilité de voir les vérifications de chacun, et de voir si ce qui est contrôlé est bon ou faux.

Sur le fichier test vous verrez en sheet1 la page de "contrôle" qui change en fonction du contrat que nous souhaitons afficher, et en sheet2 la base de donnée.

Sur la cellule rouge (ou au moins sur la page, vous m'avez compris), j'aimerai ajouter un outil/onglet/moyen pour pouvoir écrire quelque chose qui apparaîtra dans la BDD, du genre "Contrôlé", ou "Faux", et dans un monde utopique pouvoir y ajouter même un commentaire si besoin.

Merci d'avance pour votre aide,

Excellement vôtre,

Evenfin

Bonjour,

Je cherche à rajouter une colonne dans un TCD en % en calculant la différence entre Revenue market Share 2020 et 2021 par exemple 2020 2% 2021 3% nouvelle colonne 3%-2%=1%

Est ce que vous pouvez m'expliquer comment faire ? j'ai mis le fichier en pièce jointe.

Merci

4test.xlsx (69.17 Ko)

Bonjour à tous, j'ai un soucis et j'ai besoin de votre aide, je m'explique :

J'ai crée un userform24 qui s'ouvre par le biais d'un bouton, jusque la c'est bon

Dans ce userform24 j'ai une Combobox1 avec des noms de personnes ( ça va chercher les données dans l'onglet du classeur nommé "BDD COND" ( les noms sont en colonne A)

pour bien m'expliquer sur cet onglet "BDD COND"

en colonne B = le prénom

en colonne C = la validité du permis de conduire

en colonne D = la validité d'un document de la personne

en colonne E = la validité de l'accueil de cette personne

en colonne F = l'immat véhicule de la personne

en colonne G = la validité de ce véhicule

pour revenir maintenant à ce userform24

j'ai donc ce combobox1 qui va chercher les noms en liste déroulante ( ça fonctionne )

j'ai crée sur ce userform 3 boutons : RECHERCHER / MODIFIER / AJOUTER avec le code VBA pour chaque bouton que je vous affiche

Private Sub CommandButton1_Click()

'double clik sur le bouton ajouter userform24 ( gestion de la BDD COND par userform )
If ComboBox1.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Nom'"

Else

Dim Ligne As Integer
If MsgBox("Confirmez vous l'ajout du conducteur ?", vbYesNo, "confirmation") = vbYes Then
Worksheets("BDD COND").Select
Ligne = Sheets("BDD COND").Range("A456541").End(xlUp).Row + 1

'Nom
Cells(Ligne, 1) = ComboBox1.Value

'Prénom
Cells(Ligne, 2) = TextBox1.Value

'Société
Cells(Ligne, 8) = TextBox2.Value

'Validité du permis de conduire
Cells(Ligne, 3) = TextBox3.Value

'Validité du titre ADR
Cells(Ligne, 4) = TextBox4.Value

'Validité de l'Accueil Innospec
Cells(Ligne, 5) = TextBox5.Value

'Immatriculation du tracteur
Cells(Ligne, 6) = TextBox6.Value

'Validité des mines du tracteur
Cells(Ligne, 7) = TextBox7.Value

Unload UserForm24
UserForm24.Show

Else
End If
End If
End Sub

Private Sub CommandButton2_Click()

'double clik sur le bouton modifier usrform24 ( gestion de la BDD COND par userform )
Dim modif As Integer
If Not ComboBox1.Value = "" Then
Sheets("BDD COND").Select
modif = ComboBox1.ListIndex + 2

'Nom du conducteur
Cells(modif, 1) = ComboBox1.Value
'Prénom du conducteur
Cells(modif, 2) = TextBox1.Value
'Société du conducteur
Cells(modif, 8) = TextBox2.Value
'Validité du permis de conduire
Cells(modif, 3) = TextBox3.Value
'validité du titre ADR
Cells(modif, 4) = TextBox4.Value
'Validité de l'accueil Innospec
Cells(modif, 5) = TextBox5.Value
'Immatriculation du tracteur
Cells(modif, 6) = TextBox6.Value
'Date des mines du tracteur
Cells(modif, 7) = TextBox7.Value

MsgBox ("Modification effectuée")
Else
MsgBox ("Veuillez selectionner le nom du conducteur à modifier")
Exit Sub
End If

Unload UserForm24
UserForm24.Show 0

End Sub

Private Sub CommandButton3_Click()

'double clik sur le bouton recherche userform24 ( gestion de la BDD COND par userform )
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer

no_ligne = ComboBox1.ListIndex + 2

ComboBox1.Value = Cells(no_ligne, 1).Value
TextBox1.Value = Cells(no_ligne, 2).Value
TextBox2.Value = Cells(no_ligne, 8).Value
TextBox3.Value = Cells(no_ligne, 3).Value
TextBox4.Value = Cells(no_ligne, 4).Value
TextBox5.Value = Cells(no_ligne, 5).Value
TextBox6.Value = Cells(no_ligne, 6).Value
TextBox7.Value = Cells(no_ligne, 7).Value

Else
End If
End Sub

Private Sub UserForm_Initialize()

Dim LastLig As Long
LastLig = Sheets("BDD COND").Cells(Rows.Count, "A").End(xlUp).Row
Me.ComboBox1.RowSource = "'BDD COND'!A5:A" & LastLig
End Sub

Si un d'entre vous bien mieux expérimenté que moi peut contrôler mon VBA ce serait un grand merci !!!

5gestion-lames.xlsm (50.01 Ko)

Bonjour,

J'ai une liste de lames sur une feuille Excel, le nom de la lame a le format suivant: Constructeur.Modele.N°.Mois.Annee.Stock

Pour ajouter une lame a ma liste on clique sur le bouton Ajout lame dans mon userform Menu, on a unserform avec des comboboxes, on choisit les éléments après on valide pour avoir le nom complet de la lame et qui se rajoute dans la feuille liste_lameM1

Le choix de chaque valeur se fait a partir de comboxes :

Constructeur==> ComboBox_Const

Modele==> ComboBox_Modele

N°==>ComboBox_Num

Mois==>TextBox_Mois

Annee==> TextBox_Annee

Stock==> ComboBox_Stock_Cmnd

j'ai rédigé ce code mais ca marche pas, que dois je modifier merci

Private Sub CommandButton1_Click()
Dim ws_liste_M1 As Worksheet
Dim fin_liste_M1 As Integer
Set ws_liste_M1 = ActiveWorkbook.Worksheets("Liste_Lame_M1")
fin_liste_M1 = ws_liste_M1.Range("A65533").End(xlUp).Row
If Me.ComboBox_Num.Value = "M1" Then
ws_liste_M1.Activate
ws_liste_M1.Cells(fin_liste_M1 + 1, 1) = Me.ComboBox_Const.Value & "-" & Me.ComboBox_Modele.Value & "-" & Me.ComboBox_Num.Value & "-" & Me.TextBox_Mois.Value & "-" & Me.TextBox_Annee.Value & "-" & Me.ComboBox_Stock_Cmnd.Value
End If
Unload Me
End SUB 
J'ai un formulaire pour ajouter dans donnees sur une feuille excel dans la ligne 7 comme suit:
11 - excel

le code est le suivant:

Private Sub CommandButton1_Click()
'----------Ajouter demandeur, destinataire
Dim ws_suivi As Worksheet 'Target sheet
Dim ws_affect As Worksheet ' Source sheet
Set ws_suivi = ActiveWorkbook.Worksheets("suivi") 'Target sheet
Fin_Liste_suivi = ws_suivi.Range("A65530").End(xlUp).Row 'Target
'-------------Ajout Demandeur-------------
ws_suivi.Cells(Fin_Liste_suivi + 1, 2) = Me.ComboBox_Demandeur.Value
Ligne = Application.Match(Me.ComboBox_Demandeur.Value, Sheets("service ").Range("A:A"), 0)
ws_suivi.Cells(Fin_Liste_suivi + 1, 3) = Sheets("service ").Range("C" & Ligne)
'-------------Ajout Desitnataire-----------
ws_suivi.Cells(Fin_Liste_suivi + 1, 10) = Me.ComboBox_Destin.Value
Ligne1 = Application.Match(Me.ComboBox_Destin.Value, Sheets("service ").Range("A:A"), 0)
ws_suivi.Cells(Fin_Liste_suivi + 1, 11) = Sheets("service ").Range("C" & Ligne1)
'-------------Ajout Affectation-----------
ws_suivi.Cells(Fin_Liste_suivi + 1, 5) = Me.ComboBox_Affect.Value
Ligne2 = Application.Match(Me.ComboBox_Affect.Value, Sheets("Liste_Affectation").Range("A:A"), 0)
ws_suivi.Cells(Fin_Liste_suivi + 1, 6) = Sheets("Liste_Affectation").Range("B" & Ligne2)
'-------------Ajouter date et redacteur----------
ws_suivi.Cells(Fin_Liste_suivi + 1, 1) = UserForm_SDE1.TextBox_Date.Value
ws_suivi.Cells(Fin_Liste_suivi + 1, 4) = UserForm_SDE1.ComboBox_Redacteur.Value

'-------Ajouter l'ann?e-------------------
ws_suivi.Cells(Fin_Liste_suivi + 1, 7) = UserForm_SDE1.TextBox_Annee_Essai.Value

end sub 

le problme c'est que au lieu que a chaque fois que j'ajoute de nouvelles elements logiquement ca se met dans la ligne 8, 9, 10 …. MO CODE IL ECRASE CE QUI EST EN LIGNE 7 ET AJOUTE LES NOUVEAUX ELEMENTS.

qq peut me dire ou est l'erreur merci.

Bonjour,

Je souhaiterais insérer une image mais sans modifier la mise en page, l'image peu apparaître n'importe ou car le nombre de ligne ne sera jamais le même (sauf si vous avez une astuce haha)

Quand je fais ma macro "Offshore" ça modifie tout et çà me met comme ci-dessous auriez vous une astuce ou un meilleur code ?

Je vous joins le fichier si besoin

En vous remerciant

image

Bonjour,

j'ai un userform qui me permet d'ajouter des "tests" a ma BDD dans une feuille nomée "suivi_test" de la colonne 3 jusqu'à 23.

l'idée est de pouvoir choisir les tests a partir d'une liste déroulante, par exemple si je rajoute un test A, il se met directement dans la colonne 3(test1) de la feuille suivi_test, si je rajoute un 2eme test A il se met dans la colonne 4(test2), un 3eme test A il va se mettre directement dans la colonne 5(test3) ainsi de suite.

Si je rajoute un test B pour la 1ere fois il va se mettre directement dans la colonne 3(tets1)…

Des suggestions svp.

Merci

Bonjour

Serait-il possible d’insérer un bouton dans le programme pour effacer le contenu de la colonne B en jaune de la ligne 4 à 34 comme ca cela m’éviterais de cliquer sur le bouton droit de la sourie pour effacé le contenu.

merci d'avance

Bonjour a tous, j'ai eu une formule que LooReed m'as gentillement programmé, mais je n'arrive a ajouter plus que 2 cellules dans la formule, est ce que quelqu'un peut m'indiquer la marche a suivre? je veux calculer sur une trentaine de cellule environ. Voici la formule (Merci encore LooReed)

Un gros merci a l'avance

Function Lasomme(Cel1 As Range, Cel2 As Range)

Application.Volatile

Dim Tablo, NBVal, I, Somme

Tablo = Split(Cel1.Value, "-")

For I = 0 To UBound(Tablo)

Somme = Somme + Evaluate(Tablo(I))

Next I

NBVal = UBound(Tablo) + 1

Tablo = Split(Cel2.Value, "-")

For I = 0 To UBound(Tablo)

Somme = Somme + Evaluate(Tablo(I))

Next I

NBVal = NBVal + UBound(Tablo) + 1

Lasomme = Somme & " / " & NBVal

End Function

bonjour

j'ai un petit tableau, et je désire que l'horaire s'ajoute automatiquement dans les cellules d'une colonne quand je termine la saisie sur la ligne ..

un petit fichier est joint pour mieux expliquer..

je vous remercie poue les services que vous rendez aux débutants comme moi

4date-et-heure.xlsm (14.98 Ko)

Bonjour,
Sur un fichier comportant différents onglets, je réalise une synthèse en copiant collant une plage de données de chaque onglet sur une feuille pour en dresser une liste. Voici le code qui est fonctionnel :

Public Sub liste()

    Dim oSh As Worksheet
    Dim oShR As Worksheet
    Const S_RECAP As String = "Liste "
    Dim iLigCible As Integer

    Set oShR = Worksheets(S_RECAP)

    For Each oSh In Worksheets
        If oSh.Name <> S_RECAP Then
            oSh.Range("$B$41:$E$44").Copy
            iLigCible = oShR.Range("B" & Rows.Count).End(xlUp).Row + 1
            oShR.Range("B" & iLigCible).PasteSpecial xlPasteAll
            Application.CutCopyMode = False
        End If
    Next oSh

    Set oShR = Nothing

End Sub

Je souhaite ajouter, devant chaque ligne copiée le nom de l'onglet où elle a été prélevée. Excemple : [nom_de_longlet] puis cellules B41 à E41 et ainsi de suite.

Je sèche. Sauriez vous m'aider ?

Bonjour,

Svp j'ai un souci concernant le bouton Ajouter qui marche tjrs pas , soit ça saute pas de ligne à chaque fois que j'ajoute une info , soit il se positionne pas dans la bonne cellule , pour les deux feuilles.

J'éspere que vous puissiez m'aider encore une fois .

Merci d'avance

voila mon programme

8prog-vba-1.xlsm (50.61 Ko)

Bonjour,

J'essaye de mettre le code de sorte à ce qu'en appuyant sur la cellule, un +1 s'ajoute. J'ai trouvé ce code sur le Forum :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Macro dan pour Gaelle le 15/11/2009

'http://www.excel-pratique.com/forum/viewtopic.php?t=14159

Dim dval As Integer

If Not Intersect(Target, Columns(5)) Is Nothing Then

dval = Target Target = dval + 1

End If

End Sub

Comment puis-je mettre la fonction dans plusieurs colonne et non dans la 5?

seule la colonne 5 est activé et je ne connais le codage pour l'appliquer sur plusieurs en même temps comme la 5,6,7,8 etc.

Merci à vous.

Bonjour le forum

J'ai cette formule qui fonctionne bien

+ # ##0.00 €;[Rouge] - # ##0.00 €;[Bleu]0.00 € 

Et je voudrais ajouter ceci pour que ça soit en rouge ou bleu:

"Écart / Annuel"

Ou alors modifier la formule?

Merci pour vos éventuels retours

Bonjour à tous,

Je souhaite réaliser un planning sous forme de "diagramme de gantt"

J'aimerai que certaines informations paraissent dans la ligne de plage.

Exemple dans mon fichier : Je voudrais que AAB WH ZANO soit intégré dans la plage valide (entre le 07/01/2020 et le 11/02/2020)

Avez-vous une idée de comment réaliser cela?

3planning.xlsx (17.76 Ko)

Bonjour,

J'ai une question concernant la optionbutton commande, car j'ai essayé avec do while pour si je tape une nouvelle sous-catégorie en cochant optionbutton j'ajoute directement la nouvelle sous-catégorie dans la colonne correspondante suivant le listing des catégories de combobox1 dans le tableau , d'une manière qu'il sera automatiquement appliqué dans toute les colonne jusqu’à la colonne vide.

ci-joint le fichier

Merci

Cordialement

6fvba-2.xlsm (22.57 Ko)

Bonjour le forum

J'ai cette Macro qui me permet d'importer un fichier .txt dans un classeur exel.

je cherche le moyen d'ajouter sur chaque ligne du fichier importer le NOM DU FICHIER.

Si j'importe le fichier 17-06-2020.txt je voudrais qu'il soit indiquer 17-06-2020.txt dans la colonne "J"

Sub Importer()

    Application.ScreenUpdating = False

    Set monWB = ActiveWorkbook
    ChDrive "S:"    ' Choix du lecteur
    ChDir "S:\SAUVEGARDE\SUIVI BADGE SYNCRONIQUE\EXTRACTION"
    w = Application.GetOpenFilename(, , , , True)
    For i = 1 To UBound(w)
        Workbooks.Open (w(i))
            Set wb = ActiveWorkbook
            For Each f In wb.Worksheets
                f.Cells.Copy
                monWB.Sheets.Add After:=monWB.Sheets(monWB.Sheets.Count)
                monWB.Activate
                On Error GoTo DéjàImporté
                ActiveSheet.Name = f.Name
                Range("A1").Select
                ActiveSheet.Paste
                Range("A1").Select
            Next f
        Application.CutCopyMode = False
        wb.Close False
    Next i
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp

    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("RECAP").Select
    Range("A65000").End(xlUp).Offset(1).Select
    ActiveSheet.Paste

Exit Sub

DéjàImporté:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    wb.Activate
    MsgBox "Le nom de cette feuille exite déjà dans le fichier " & monWB.Name, 16

    Application.ScreenUpdating = True

End Sub

Merci de votre aide

Recherches récentes

calcul taux tva seul feuilleplanning horraircreer facturecreer facture word pdf partir base modeleextraire liste multiple critereextraire liste fonction multiple criterecopier coller entre fichiers nouvellement ouvertworkbooksworkbooks activatetresorerieajout ligneprevisionnel tresorerievba color plage date double conditioncolonne vbadimspin textspinmail graphiquesharepointsci