Résultats pour "copier derniers caracteres cellulrs"

4'052 résultats pour cette recherche

Bonjour à tous,

J'utilise un formulaire de saisie pour alimenter une feuille excel.

Dans ce formulaire j'ai un certain nombre de champs DATE où la saisie est facilité par un masque de saisie.

Le problème est que lorsque l'utilisateur indique par exemple 12/12/19 dans la feuille excel, quand je filtre sur la colonne, cette date n'est pas regroupée par mois. Alors que si l'utilisateur saisi 12/12/2019 le regroupement par mois est effectif.

Je cherche donc à corriger cette erreur pour que le regroupement se fasse pour toute saisie que ce soit 19 ou 2019.

Mon idée est de récupérer les 2 derniers caractères du texbox ("19") pour les remplacer par "2019". Par contre je sèche sur la manupulation

Pourriez-vous m'aider svp ou peut être y a t il une manière de faire plus simple ?

Voici le code du textbox avec mon essai pour récupérer les derniers caractères :

Merci à tous.

Private Sub TB_PLUG_E1_AfterUpdate()
If TB_PLUG_E1.Value = "" Then Exit Sub
If Not IsDate(TB_PLUG_E1.Value) Then
MsgBox "La date saisie n'est pas au format jj/mm/aaaa", vbInformation, "Erreur date"
TB_PLUG_E1.Value = ""
End If

'Chaine = "/"
caractere = "/"
Positiondroite = Len(TB_PLUG_E1) - InStrRev(TB_PLUG_E1, caractere) + 1
If Not Positiondroite = 5 Then
Annee = "20" & Right(TB_PLUG_E1, Positiondroite - 1)
'TB_PLUG_E1=replace(TB_PLUG_E1
'    MsgBox Len(TB_PLUG_E1) - Positiondroite
'Annee = Right(TB_PLUG_E1, Len(TB_PLUG_E1) - Positiondroite + 1)
MsgBox Annee
End If

End Sub

Private Sub TB_PLUG_E1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 8 Then
        If Right(TB_PLUG_E1, 1) = "/" Then TB_PLUG_E1 = Mid(TB_PLUG_E1, 1, Len(TB_PLUG_E1) - 1)
   End If

End Sub

Private Sub TB_PLUG_E1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'On limite la saisie aux caractères suivants : 1234567890/
    If Not ((KeyAscii > 46 And KeyAscii < 58)) Then KeyAscii = 0

End Sub

Private Sub TB_PLUG_E1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case Len(TB_PLUG_E1.Text)
    Case 2: If Val(TB_PLUG_E1.Value) > 31 Then TB_PLUG_E1.Value = "": MsgBox "Le jour est supérieur à 31" Else TB_PLUG_E1 = TB_PLUG_E1 & "/"
    Case 5: If Mid(TB_PLUG_E1, 4, 2) > 12 Then TB_PLUG_E1.Value = Mid(TB_PLUG_E1, 1, 3): MsgBox "Le mois  est supérieur à 12" Else TB_PLUG_E1 = TB_PLUG_E1 & "/"
    Case 10: If Not IsDate(TB_PLUG_E1) Then MsgBox "Ceci n'est pas une date": TB_PLUG_E1 = ""
    Case 11: TB_PLUG_E1 = Mid(TB_PLUG_E1, 1, 10)
    End Select

End Sub

Bonjour,

Je souhaite supprimer les 7 premiers caractères d'une cellule et également les 2 derniers.

Pouvez vous svp m'aider ?

Cellule actuelle: PP_A32-D955.10022.016.95_A

Cellule souhaitée: D955.10022.016.95

Merci d'avance,

Cordialement.

Anthony

Hello,

J'ai dans ma cellule "A20" une chaîne de caractères variables, mais qui se termine toujours par un chiffre.

Ex: "Ml P25L 414.25 np 454.35"

Ici, ce que je souhaite récupérer est "454.35" (sous forme de chiffre)

Mon approche serait de lui dire de partir de la droite de la chaîne de caractère complète et de se déplacer vers la gauche jusqu'à rencontrer un espace.

Quelqu'un saurait-il comment faire ?

Avec un peu d'avance, excellent week-end.

Fab

Bonsoir Forum,

mon cerveau lag en ce moment je ne suis pas capable d'écrire une formule.

J'ai en colonne "D" des noms de clients, la macro inscrit automatiquement: "nomduclient"_2 si c'Est une soumission, et écrit seulement le "nomduclient" si c'Est une véritable facture

J'aimerais dans 2 cellules pouvoir comptabiliser les taxes de ventes des factures mais non des soumissions.

quel formule dois-je utiliser dans le contexte ou la taxes serait de 5%.

SI(Droite(D4, 2)=_2 calcul =0 sinon calcul) je sais pas trop

a l'aide!

Bonsoir à tous,

Cela fait 2 jours que je planche sur le problème sans le résoudre. Avec un logiciel d'OCR j'ai scanné 15000 verbes en langue provençale et je les ai exporté dans un classeur Excel. La mauvaise qualité de l'impression fait que nombre de verbes qui devraient se terminer en "ia" se terminent en "la". Pour éviter de modifier 1 à 1 les verbes en question (il y en a quand même quelques centaines) et uniquement ceux de certaines catégories, j'ai utilisé la formule suivante :

=SI(A2=1;SUBSTITUE(B2;"LA";"IA");SI(A2=25;SUBSTITUE(B2;"LA";"IA");SI(A2=20;SUBSTITUE(B2;"LA";"IA");SI(A2=19;SUBSTITUE(B2;"LA";"IA");SI(A2=14;SUBSTITUE(B2;"LA";"IA");B2)))))

Cela fonctionne parfaitement, sauf que si le texte de la cellule contient plusieurs fois "LA" ils sont tous remplacés par "IA" (exemple le verbe FLAIA reconnu par l'OCR en FLALA devient avec ma formule FIAIA).

Pour éviter cela et ne changer que les 2 derniers caractères de la chaine texte qui peut être de longueur variable j'ai utilisé les arguments DROITE et NBCAR ce qui me donne la formule suivante :

=SI(A3=1;SUBSTITUE(DROITE(B3;NBCAR(B3)-3;"LA";"IA");SI(A3=25;SUBSTITUE(DROITE(B3;NBCAR(B3)-3;"LA";"IA");SI(A3=20;SUBSTITUE(DROITE(B3;NBCAR(B3)-3;"LA";"IA");SI(A3=19;SUBSTITUE(DROITE(B3;NBCAR(B3)-3;"LA";"IA");SI(A3=14;SUBSTITUE(DROITE(B3;NBCAR(B3)-3;"LA";"IA");B3))))))))))

Mais quand je valide la formule j'ai un message qui me dit vous avez utilisé un nombre trop important d'arguments et quand je clique sur OK "LA" est en surbrillance dans ma formule. J'ai essayé en le supprimant en remplaçant SUBSTITUE par REMPLACER, rien n'y fait.

Merci de m'apporter votre aide

Bonjour à tous,

Je viens sur ce forum afin de trouver de l'aide après des heures et des heures de recherche...

Mon problème est le suivant :

J'ai codé une partie en VBA qui me permet de trouver s'il y a des doublons ou des erreurs dans ma feuille Excel.

Ce code me permet dans un premier temps de sélectionner la colonne que je désire et vérifier si le champ de texte possède seulement 8 caractères.

Ensuite j'ai fait des validations par couleurs :

En vert si cela est OK.

En Rouge si cela à quelque chose de faux (P.Exemple: 9 caractères).

En Orange s'il y a des doublons, donc deux fois le même champ de texte.

Ce que je n'ai pas réussi à réaliser c'est le suivant:

Comment vérifier seulement les 4 derniers caractères de mon champ?

Exemple :

{Vert}(OK)

TE170001

RE170002

{Orange}(Doublon)

TE170001

RE170001

Voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Me.Range("G3:G200")) Is Nothing Then Exit Sub

Application.EnableEvents = False

If InStr(Target.Address, ":") = 0 Then Range(Target.Address).Value = UCase(Range(Target.Address).Value)

If Not Intersect(Target, Me.Range("G3:G200")) Is Nothing Then Call Tower_Check("G")

Application.EnableEvents = True

End Sub

Sub Tower_Check(ByVal col As String)

For i = 3 To 200

Dim numero As String

numero = Range(col & i).Value

If Len(numero) = 8 Then

'Vert

Range(col & i).Interior.Color = RGB(30, 198, 30)

ElseIf numero = "" Then

Range(col & i).Interior.ColorIndex = 0

Else

'Rouge

Range(col & i).Interior.Color = RGB(220, 33, 33)

End If

Dim count As Integer

count = 0

For j = 3 To 200

Dim numero2 As String

numero2 = Range(col & j).Value

If numero = numero2 And numero2 <> "" Then

count = count + 1

End If

Next

If count > 1 Then

'Orange

Range(col & i).Interior.Color = RGB(252, 140, 27)

End If

Next

End Sub

Est ce que quelqu'un pourrai me donner des indications ou me donner la solution ?

Je laisse mon fichier Excel en annexe pour que vous puissiez y accéder

Feuilles en question:

Excel : Divers

VBA: Feuille4 (Divers) et Module1.

Bonjour,

Je demande encore votre aide.

J'ai un tableau avec une colonne (qui va pas être toujours au même endroit suivant l'extraction) qui a un format de date bidon.

Exemple : 23/05/2016:13:13

Je voudrais supprimer les 6 derniers caractères afin d'avoir un format de date correcte.

Pour trouver cette colonne je sais que l’en-tête est toujours "DateBooked".

j'utilise cette macro :

Cells.Find(What:="DateBooked").Activate

ActiveCell.EntireColumn.Select

Mais ensuite j'ai essayé de créer une boucle mais je suis nul la dessus et je ne trouve pas malgré plusieurs lecture sur différent site sur la toile.

Avez vous une idée pour m'aider ?

Merci a vous tous.

Eddie

Bonjour le forum,

J'ai trouvé des tas de réponses sur les différents forum mais aucune ne fonctionne....

Je souhaiterai , via macro, supprimer les 6 derniers caractères de chaque cellule de la colonne C.

Je vous remercie de votre aide.

Cordialement,

Innuendo67

Bonjour à vous,

Je vous écrit car j'aurais une petite question par rapport a excel

Enfaite je voudrais savoir comment actualiser un historique de numéros en ne conservant que les 50 derniers

Je m'explique : J'ai un historique de 60 numéros qui sont écrit entre la cellule "B18 à B77"

Et je voudrais bien actualiser cet historique en gardant que les 50 derniers numéros mais que le premier numéro des 50 reviennent a la cellule "B18".

Je voulais savoir si ses possible de faire sa avec excel ?

Merci d'avance de votre réponse .

Eidos123

Bonjour,

J'ai un tableau dans lequel je rajoute des données de manière permanente dont voici un exemple:

Date Heure Societe Employé

27/01/2019 I 15:37 I Société I Personne responsable du ticket

28/01/2019 I 17:32 I etc

Comment puis-je faire pour avoir différents graphiques qui s'actualise sur les 7 et 30 derniers jours même si je rajoute des données?

Je veux qu'il choisisse de manière intelligente les 7 ou 30 derniers jours à partir de la date actuelle.

Merci par avance!

Bonjour à tous,

J'aimerais mettre en place une formule qui me permettrait de calculer le nombre de lignes sur laquelle apparaît un identifiant qui est un chiffre dans la colonne A. De plus il faudrait que je tienne compte de la date qui est indiquée dans la colonne B pour ne compter que les lignes des 12 derniers mois par rapport à la date du jour. J'ai d'autres colonnes avec différentes informations mais ce qui m'intéresse c'est de compter les lignes car chacune correspond à un événement différent. Donc pour résumer simplement je voudrais compter le nombre d'événements étant survenu dans l'année par utilisateur

J'ai plusieurs feuilles excel dans mon classeur, une pour 2018 et une pour 2019. Je compte appliquer ma formule sur une troisième feuille qui contiendra la liste de mes utilisateurs avec leurs identifiants dans la colonne A leurs noms dans la B puis le nombre d'événements qu'ils ont générés dans la C. Il faut donc en plus récupérer les résultats des deux feuilles.

J'ai regardé un peu du côté de NB.SI mais je ne vois pas comment faire pour la contrainte de la date. J'ai vu sur le forum que certain avait l'air d'utiliser SOMMEPROD mais j'ai un peu de mal à comprendre les formules proposées pour les appliquer à mon cas.

Quelqu'un pourrait m'aider ou m'indiquer de quel côté chercher svp ?

Merci d'avance à tous.

Bonjour Forum,

Je ne savais pas trop comment nommer ce topic désolée...

Dans le fichier en PJ, vous verrez un tableau contenant un compteur (la colonne C est remplie grâce à une macro sur mon fichier d'origine).

Ce que je souhaite faire, c'est avoir un graphique qui ne m'affiche que les 6 derniers mois par rapport à la date d'aujourd'hui (analyse de la date à l'ouverture du fichier).

Je m'explique :

1) Nous sommes en 07/18, sur mon graphique apparaitrons : 07/18, 06/18, 05/18, 04/18, 03/18, 02/18;

2) Lorsque nous seront en 01/19, apparaitrons : 01/19, 12/18, 11/18, 10/18, 09/18, 08/18.

Je pensais réaliser ceci avec une macro jouant sur les filtres d'un TCD mais je suis incapable de savoir comment l'écrire ...

Il y a sans doute un autre moyen, toute proposition est bienvenue !

Merci d'avance !

Azkaet

NB : S'il faut modifier l'apparence de mon tableau, aucun soucis !

10test.xlsm (50.99 Ko)

Bonjour à tous.

Je cherche à effectuer un calcul assez simple : additionner des heures en fonction des dates. Je cherche donc à savoir combien d'heures ont été faites sur les 7, 14 et 28 derniers jours en prenant en compte la date du jour.

J'ai tenté de réutiliser une formule somme.si mais il semble que cela ne soit pas correct.

=SOMME.SI(A1:A28,B1:B28,">"&aujourd'hui()-7)-somme.si(A1:A28,B1:B28,">"&aujourd'hui())

Un fichier est joint, si cela peut vous aider à y voir plus clair.

Merci par avance pour l'aide.

Bonjour à tous,

Voila je dispose du fichier disponible en pièce jointe ou dans la colonne A est renseigné une référence et dans la colonne L son statut d’acceptation

J'aimerai savoir si était possible de retrouver par une formule les 3 derniers statut d’acceptation pour la référence rentrer en N2

Par exemple pour la référence edp1238a1, afficher A,A,R (dans les 3 cases respectives)

Je vous remercie d'avance de votre aide

4test.xlsx (11.44 Ko)

Bonjour !

J'ai tenté plusieurs solutions mais j'ai toujours quelque chose qui cloche dans ma formule.

Dans ma colonne B je voudrai afficher la moyenne pondérée des contrôles effectués de chaque élève sauf que :

Un élève peut être absent (donc cellule avec une chaîne ou vide), il ne faut pas les prendre en compte

Je voudrai avoir une option pour comptabiliser les X derniers contrôles via la cellule A1.

Je voudrai pouvoir garder la formule tout le long de l'année, donc idéalement vérifier toute la ligne depuis la colonne C jusqu'à assez loin (donc il y aura pas mal de cellules vides).

Si aucune note n'est rentrée ou que l'élève était absent durant tous les contrôles, ne rien afficher.

J'ai essayé plusieurs choses, j'ai tenté avec les fonctions COLONNE pour les X derniers contrôles et GRANDE.VALEUR pour les cellules vides ou contenant du texte mais je m'y perds et je n'ai pas l'effet escompté.

Si vous avez des idées pour faire le maximum des choses, ça serait top !

Voici le fichier

6exemple.xlsx (9.01 Ko)

Merci à vous.

Panpan.

Bonjour à tous,

je posséde les données suivants, je voulasi s il vous plait extraire les 2 dernier mots à droite de chaque cellule

C218_CC_A

B8_DP_A

Nähen_A

SW_B

W213_CC_SF_B

le résultat sera alors

C218_CC

B8_DP

Nähen

SW

W213_CC_SF

merci d avance

Bonjour chers tous,

mon souci sur excel est de remplacer les 3 derniers chiffres de nombres à 11 caractères par des zéro.

J'ai en colonne A des nombres à 11 chiffres et je voudrais en colonne retrouver ces nombres mais avec les 3 derniers chiffres remplacés par des zéro.

Un exemple concrêt:

A1

10112000589

11112100457

11410300001

B1

10112000000

11112100000

11410300000

Bonjour,

Je souhaite mettre en valeur des adresses dans une liste. La mise en forme conditionnelle des doublons se fait uniquement sur les cellules strictement identiques.

Je voudrais donc appliquer la MFC soit en occultant les premiers caractères (n° et nature de la voie), soit en comparant uniquement le dernier mot contenu dans les cellules.

Je joins un aperçu de mon fichier, dans cette exemple je souhaite colorer les cellules contenant ANDRE DASTE et BONNAT.

Merci pour l'aide que vous pourrez m'apporter, je débute dans excel et je n'ai pas trouvé de réponse sur les forums....

Fabrice

mfc

bonjour le forum

petit souci avec SI égal

je joins un fichier

merci

tomatito37

13si-conditions.xlsx (8.76 Ko)

bonjour

j'ai 2 questions :A : comment faire un calendrier étirable à perpett où l'on selectionne les mardi de semaines impaires

B : comment faire un calendrier etirable à perpett où l'on sélectionne les derniers mardis du mois

et enfin, comment faire une alerte où l'on fait déjà apparaître le lundi, puis le mardi (pour pouvoir se preparer), pour ces 2 questions (A & B)

voilà, je pense qu'il y a toutes les données, et que ca ne necessite pas de fichier special (je suis preneur pour toute suggestion)

merci, et @+, Ptkntz

Recherches récentes

redimouvrir tous fichiersonedriveextraire tableau structuresenregistrer donnees tableau vba boucle forrapportrecherche multicriteres userformvba remplacer textemacro ralentirprocedure trop longue vbarapprochementtaille liste deroulantecalculconsolidation fichiers power queryconsolidation fichiersliens word serveur424enregistrer imagerecherchev liste deroulanteauto clicker