679 résultats trouvés

par oxydum
Hier, 16:32
Forum : Excel - VBA
Sujet : Supprimer une cellule ET celle située à sa gauche
Réponses : 3
Vues : 25

Re: Supprimer une cellule ET celle située à sa gauche

Désolé, c'est de ma faute, il manque
End If
avant le
Next i
par oxydum
Hier, 15:44
Forum : Excel - VBA
Sujet : Supprimer une cellule ET celle située à sa gauche
Réponses : 3
Vues : 25

Re: Supprimer une cellule ET celle située à sa gauche

Bonjour,

Essaie un truc comme ça :
Sub Suppression()
Dim i%
For i = 1005 To 2 Step -1
If Cells(i, 2).Value = "VIDE" Then '(..........)
  Cells(i,2).Value =""
  Cells(i,1).Value =""
Next i
End Sub
par oxydum
Hier, 15:05
Forum : Excel - VBA
Sujet : Empecher modification de cellule
Réponses : 3
Vues : 37

Re: Empecher modification de cellule

Bonjour,

Voici ma contribution simpliste.
par oxydum
Hier, 10:42
Forum : Excel - VBA
Sujet : [VBA] Copier 2 colonnes d'un tableau dans une autre feuille
Réponses : 2
Vues : 24

Re: [VBA] Copier 2 colonnes d'un tableau dans une autre feuille

Bonjour,

Ajoute la destination :
    Range("C:D").Select
entre
    Sheets("Feuil1").Select
et
    ActiveSheet.Paste
par oxydum
20 février 2020, 15:20
Forum : Excel - VBA
Sujet : Créer une boucle
Réponses : 2
Vues : 35

Re: Créer une boucle

Bonjour,

Tu peux certainement adapter un truc comme ça :
Sub Macro2()
x = 10
y = 100
  For i = x To y
    ActiveSheet.Rows(CStr(i) & ":" & CStr(i)).Select
    Call Macro1
  Next i
End Sub
par oxydum
20 février 2020, 15:08
Forum : Excel - VBA
Sujet : Optimisation code VBA
Réponses : 1
Vues : 42

Re: Optimisation code VBA

Bonjour,

Commente le
Calculate 
et reteste.
par oxydum
20 février 2020, 12:23
Forum : Excel - VBA
Sujet : Action double-clic pour insérer ou enlever une croix dans cellule
Réponses : 2
Vues : 33

Re: Action double-clic pour insérer ou enlever une croix dans cellule

Bonjour,

C'est donc ça que tu veux faire :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("F9,F11,F13"), Target) Is Nothing Then Exit Sub
  If UCase(Target) = "X" Then Target = "" Else Target = "X"
  Cancel = True
End Sub
par oxydum
19 février 2020, 16:20
Forum : Excel - VBA
Sujet : Calculer le nombre de jour en retard (nombre négatif)
Réponses : 4
Vues : 45

Re: Calculer le nombre de jour en retard (nombre négatif)

Bonjour,

Tu peux aussi remplacer par :
=JOURS([@Échéancier];AUJOURDHUI())
par oxydum
19 février 2020, 14:53
Forum : Excel - VBA
Sujet : Une seule toupie pour une plage de cases
Réponses : 13
Vues : 99

Re: Une seule toupie pour une plage de cases

J'ai modifié mon classeur.
par oxydum
19 février 2020, 12:05
Forum : Excel - VBA
Sujet : Une seule toupie pour une plage de cases
Réponses : 13
Vues : 99

Re: Une seule toupie pour une plage de cases

Bonjour,

La présentation de ton problème est catastrophique.
Je te propose ce classeur qui peut éventuellement répondre à ton besoin.