Test sur un texte commençant par

Bonjour Agi,

Je te propose ce code VBA :

Option Explicit

Sub Essai()
  Application.ScreenUpdating = False
  Dim chn As String, dlig As Long, lig As Long
  dlig = Range("A" & Rows.Count).End(xlUp).Row
  For lig = 1 To dlig
    chn = Cells(lig, 1)
    If Len(chn) > 1 Then Cells(lig, 2) = Mid$(chn, 2, 1)
  Next lig
End Sub

Ça fera le travail en colonne B, pour A1 à la dernière donnée
de la colonne A, même s'il y a des cellules vides dans cette
colonne A ; cela grâce à dlig : dernière ligne.

Si ton problème est réglé, merci de l'indiquer,
pour que le sujet puisse être passé en résolu.

Cordialement.  :)

PS : Bonjour à Whismeril en passant.  ;)
 

Bonjour

Regarde l'opérateur Like ou l'opérateur Left

Merci Whismeril, je vais essayé avec ça !

Bonjour albkan,

je te remercie pour ton code, il marche super bien
merci à toi aussi Whismeril

Cordialement

Bonjour albkan,

je reviens vers toi à propos de ton code, est ce que il y a moyen de préciser pour qu'il ne fonctionne que dans le cas ou on la lettre "O" ( exemple O5a-xxxx) ou de la lettre "E" ( exemple E5a-xxxx) et pas le reste les lettres de l'alphabet.
Merci pour ton aide et bonnes fêtes

Agi

Bonjour albkan,

Je te remercie pour ta réponse, c'est exactement ce qu'il me faut..
Passe un bon réveillant, et à toi aussi Whismeril passe de bonnes fêtes.

A bientôt

Agi

 
Bonjour agi et meilleurs vœux à toi aussi !

Pour ta demande, il manque beaucoup trop d'informations !

Quand on veut faire une copie, il y a la source (= les données à copier)
et la destination (là où on veut faire la copie).

==============================

Pour la source :

a) nom du fichier 1 ? exemple : "Classeur 1.xlsm"
b) nom de la feuille ? exemple : "Feuil3"

c) n° de la ligne d'en-têtes du tableau ? ; exemple : ligne 5
d) 1ère ligne des données ? en principe juste après la ligne d'en-têtes => 6
e) dernière ligne des données ? : exemple : 100 (ou variable)
f) lignes à copier : de date début à date fin : OK

g) colonnes à copier : de la colonne A à quelle colonne ? G ? autre ?
h) ta colonne A contient des dates ; quel est le format de ces cellules ?
    format date jj/mm/aaaa ? autre format date ? format texte ?

----------------------------------------------------

exemple de résumé pour c) à h) :

des lignes 5 à 100 (et +), la ligne 5 étant une ligne d'en-têtes,
des colonnes A à G, dates au format jj/mm/aaaa

mais n'oublie pas de répondre aussi à a) et b) !

Et je vais supposer que toutes tes lignes de données sont continues,
c'est-à-dire sans ligne vide entre ; sinon, à toi de me le dire.

==============================

Pour la destination :

a) nom du fichier 2 ? exemple : "Classeur 2.xlsm"
b) nom de la feuille : "Feuil1" ? autre ?

c) cellule du coin supérieur gauche du futur tableau ? D8 ? autre ?
    si D8, ça signifie que la ligne d'en-têtes sera la ligne 8 ; la 1ère ligne
    de données copiée sera en ligne 9 et les autres seront dessous ;
    s'il y avait 7 colonnes (de A à G) pour la source, la destination aura
    7 colonnes aussi (de D à J). Et cela si pour une ligne copiée, tu veux
    toutes les 7 colonnes de la source, mais ce n'est pas forcé : tu peux
    vouloir seulement 2 ou 3 colonnes et pas les autres ! Si oui, à toi
    de l'indiquer : on ne peut pas deviner ce que tu préfères !  ;)

==============================

Ça te fait beaucoup de réponses à donner, hein ? Ce serait peut être
plus simple en joignant ton fichier (sans données confidentielles) via
mon-partage.fr ; ça m'aidera bien plus pour la source, mais il faudra
quand même indiquer tout ce que j'ai demandé pour la destination.

À te lire.  :)
 

Bonjour Albkan,
Voilà les données

Fichier source:

Classeur : Source.xls
Feuille : Feuil1

Colonne A: date
Colonne B: commune
Colonne C: adresse
Colonne D: référence
Colonne E: intitulé
Colonne F: type
Colonne G: état

Fichier cible:

Classeur : Cible.xls ( qui se trouve dans un autre répertoire nommé "dsp")
Feuille : Feuil2

Colonne A: date
Colonne B: commune
Colonne C: adresse
Colonne D: référence
Colonne E: intitulé
Colonne F: type
Colonne G: état

L'idée est de copier une partie du fichier source et de la coller dans le fichier cible sachant que la cible et la source sont identiques, sauf que la cible ne contiendra que les lignes dont les dates sont comprises dans la fourchette choisie par "InputBox"
(exemple: copie: du 16/01/2017 au 23/01/2017) tout copier car plusieurs lignes peuvent contenir la même date.

Je reste à ta disposition pour tout tout info en plus

Merci infiniment

Agi

Bonjour,

Juste une erreur de syntaxe:
Voici le bon code

Workbooks("Classeur1.xls").Sheets(Sheets.Count).Select
Cells.Copy _
Workbooks("Classeur2.xls").Worksheets("feuille2").Range("A1")

Bonne journée

Agi