Discussion :

[djemol]

Bonjour

J'arrive bientôt a la fin de mes recherches il me reste encore quelques petites modifications

Voila mon nouveau problème

J'ai plusieurs code dans plusieurs cellules

exemple

en B2 le code 00000017F5
B3 00000018F5
B4 00000034F3
B5 00000063F3
B6 00000063F3

Je doit récupéré la lettre et le dernier chiffre pour la placé en

D2 F5
D3 F5
D4 F3
D5 F3
D6 F3


Une autre question peut on via une macro intégré les semaines dans une cellules
exemple cette semaine nous somme la semaine S21 peut on faire en sorte que cela s'affiche chaque lundi pour faire ensuite S22 / S23 ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
 
Range("D2").Value = Range("B2").Value & " " & Range("D2").Value
 
End Sub

[parmi]

Bonjour,

Pour la partie de code, une formule suffit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Droite(B2; 2)

Pour la semaine, tu peux te créer un calendrier dans une feuille où tu mets les dates en colonne A et les semaines en colonne B
Il te suffit de faire une RechercheV de la date du jour (AUJOURDHUI()) dans cette plage

[djemol]

Re

tu me demande de remplacé = Range("B2") par =Droite(B2; 2) ??

[Menhir]

tu me demande de remplacé = Range("B2") par =Droite(B2; 2) ??

Non.
En cellule D2, tu mets cette formule et tu copies D2 vers le bas autant que nécessaire.

Une autre question peut on via une macro intégré les semaines dans une cellules
exemple cette semaine nous somme la semaine S21 peut on faire en sorte que cela s'affiche chaque lundi pour faire ensuite S22 / S23 ....

Faire un Evaluate sur la formule Excel WEEKNUM ou ISOWEEKNUM en utilisant la fonction Now() pour donner la date du jour.
https://support.office.com/fr-FR/art...1-b18c13c75340
https://support.office.com/fr-FR/art...4-8d0520e90e0e

[parmi]

Non, une formule en D2 que tu copies sur les autres cellules de la colonne D

[djemol]

Mdr

Je suis pas doué avec les formules Excel

Je cherche a comprendre ou je dois placer cette formule et vraiment la je suis nul de chez nul

La macro et vraiment pour vous une facilité mais pour moi lol de chez lol une vrai galère

Mon domaine de travail n'a rien a voir avec excel juste un outil qui me sert de contrôle le travail des techniciens

alors pliz dit moi ou la placer sur cette ligne

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D2").Value = Range("B2").Value & "" & Range("D2").Value

[Menhir]

Je cherche a comprendre ou je dois placer cette formule et vraiment la je suis nul de chez nul

Je vais essayer une dernière fois : ce n'est pas une formule à placer dans une macro mais dans une cellule, classiquement, comme toute formule Excel.
Je ne vois pas comment être plus clair.

Mon domaine de travail n'a rien a voir avec excel juste un outil qui me sert de contrôle le travail des techniciens

Comme pour la grande majorité de ceux qui utilisent VBA Excel.

[Pierre Fauconnier]

Salut.

RECHERCHEV permettrait cela (en Excel ou en VBA). Voir mon tuto à ce sujet.

[djemol]

Merci


je regarderai demain car depuis se matin je suis sur le pc

Encore merci de votre aide vraiment une Team sympathique

depuis 2013 je suis inscrit sur votre forum et toujours a l'écoute des autres

question peut on faire un don pour le forum ??

Merci

[djemol]

Bonjour

Je rencontre un nouveau problème très délicat

J'ai deux classeurs sur l'un des deux classeurs se trouve une liste de code site avec deux références exemple Ref P1P2P6 / P1P2
Chaque référence et attribué a un code site ce qui m'oblige a faire une recherche du code et faire un copier de la référence pour le coller sur l'autre classeur

Il faut savoir que la liste ou ce trouve les références a plus de 2000 code site

exemple

Code site : 00000006F5 ville : WILLERVA titre : P1P2P6
Code site : 00012382F5 ville : CORBEHEM titre : P1P2


En vous remerciant

[Pierre Fauconnier]

RECHERCHEV permet d'aller chercher la valeur dans un autre classeur, pour autant qu'il soit ouvert.

Je préfère dès lors importer les données source dans le classeur de travail. L'onglet données offre plusieurs possibilités (msQuery, liaison aux données) et la version 2013 permet une connexion via PowerQuery.

Dans ce cas précis, il me semble qu'une liaison directe est pertinente.

[djemol]

Merci pour ton explication

Mais franchement trop compliqué pour moi j’abandonne

Merci quand même

[djemol]

Bonjour

Finalement j'ai continué mes recherches et j'arrive bientôt a la fin

J'ai pu créer une macro
j'explique ou cela bloque
lorsque je clic sur le bouton zone les codes sites apparaissent bien dans les cellules zone jusqu'ici tout va bien
sachant que chaque codes sites correspond a un département j'ai donc créer un autre bouton go qui lui a pour but de sélectionner les codes sites pour ensuite les intégrer dans les cellules dpt mais le problème une fois le bouton dpt lancé les codes sites disparaissent

Je vous joint un fichier peut être que cela vous sera plus explicite

Merci encore pour votre aide

[parmi]

Met plutôt le code qui cause problème parce que peu de gens vont ouvrir un fichier avec macro...

[djemol]

Re

Voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub FormuleTEST()
    Dim nbLignes As Long
    Dim top, ref As Range
        On Error GoTo 0
     Range("d2:e100").ClearContents
     nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
     On Error GoTo plouf
    Set ref = Application.InputBox(prompt:="Sélectionner les cellules ", Type:=8)
   ' MsgBox (ref.Address)
      Set Position = Sheets("test").Range("d2")
      ref.Copy
      ref.PasteSpecial xlPasteValues
      Position.PasteSpecial xlPasteValues
      Range("e2:e7" & nbLignes).Formula = "=RIGHT(B2, 10)"
Call colDTEST
plouf:
  Exit Sub
End Sub
 
Sub colDTEST()
On Error GoTo 0
    Columns("E:E").Select
    Selection.ClearContents
        Range("E1").Value = "Zone"
    Range("E2").Select
 
    Call formulllTEST
End Sub
 
Sub formulllTEST()
On Error GoTo 0
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],RC[-4]:R[64998]C[-3],2,FALSE)"
    Selection.AutoFill Destination:=Range("E2:E6"), Type:=xlFillDefault
    Range("E2:E6").Select
 
 
End Sub

Merci encore