Re : VBA Ouvrir nvlle feuil id à précédent en changeant certains éléments
Bonjour CBernardT,
Merci d'avoir répondu aussi vite.
Après des tests j'ai constaté un problème quand on ouvre le fichier :
- Pour le mois de Novembre c'est OK : le nom du client et le lieu d'intervention apparaisse bien (puisqu'il n'y pas de doublons). Pour les autres mois ça doit être bon ;
-Pour le mois de Juin : le nom du client OK mais le lieu d'intervention n'apparaît pas.
Et je suppose que le lieu d'intervention n'apparaît pas dès qu'il y a le nom du client avec du texte effacé.
Y a t'il une solution ?
Merci d'avance pour ton aide précieuse
Cordialement,
Scampyrate
Re CBernardT,
En fait je crois que j'ai réussi en tout cas ça fonctionne. Regarde :
Option Explicit
Public Critere As String
Sub InterventionsMois()
Dim m As Byte, i As Byte, Client As String
Application.ScreenUpdating = False
With Sheets("PLANNING")
For m = 4 To 15
If NumMois(CStr(.Cells(5, m))) = Critere Then
For i = 6 To 29 Step 3
If .Cells(i, m) = "x" Then
Sheets("BON INTERVENTION").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
Client = Sheets("PLANNING").Cells(i, 2).Value
If Right(Client, 1) = "x" Then
.Name = Client
.Cells(15, 2) = Left(Client, Len(Client) - 3)
.Cells(21, 2) = Left(Client, Len(Client) - 3)
.Cells(17, 2) = Sheets("PLANNING").Cells(i, 3).Value
Else
.Name = Client
.Cells(15, 2) = Client
.Cells(17, 2) = Sheets("PLANNING").Cells(i, 3).Value
.Cells(21, 2) = Client
End If
End With
End If
Next i
End If
Next m
End With
Sheets("PLANNING").Activate
End Sub
J'ai juste ajouté ce qu'il y a en rouge et ça fonctionne. Je pense qu'à force de regarder ton travail j'ai compris des ptits trucs (A force de m'arracher les cheveux lol) !!!
Dans tous les cas, un
GRAND MERCI à toi. Ca fonctionne super !
A bientôt CBernardT
Cordialement,
Scampyrate