test sur un texte commençant par Résolu

Question

Bonjour, 
je suis débutant et j'aimerais faire un code en vba qui consiste à :
exemple: si la colonne A contient un texte commençant par O5a-xxxx alors écrire dans la colonne B le chiffre 5.
Merci pour votre aide
Configuration: Windows 7 / Chrome 55.0.2883.87

Utilisateur anonyme · Answer

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

Agi · Answer

Merci Whismeril, je vais essayé avec ça !

Utilisateur anonyme · Answer

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.  ;)

agi · Answer

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

agi · Answer

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

agi · Answer

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

Utilisateur anonyme · Answer

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.  :)

agi · Answer

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

agi · Answer

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

Test sur un texte commençant par

9 réponses

Newsletters